The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/usr/bin/perl


print "1..1\n";

die "I should have no args -- @ARGV" if(@ARGV);
print "ok 1 - this is a test\n";