#!perl 

print "TEST\n";
print "ARGV: ..@ARGV..\n";
<>;