1#!/usr/bin/perl 2 3print "1..1\n"; 4 5die "I should have no args -- @ARGV" if (@ARGV); 6print "ok 1 - this is a test\n"; 7 8