#! perl
use warnings;
use strict;

print "1..1\n";
print "ok 1 - pass\n";