Help for this page

Select Code to Download

Select or download this

if ( @ARGV ) {
   my $file = shift(@ARGV);
...
}

print "this is a test\n";