Select Code to Download

#!/usr/local/bin/perl -w

...

# Be rude.
print "\n\nRight - run 'perl $out_file | perl - args' and stop pesteri
+ng us.\n\n";

#!/usr/local/bin/perl -w

print 'Look Dad - we can make millions now!', "\n\n";

print "Arguments are: ", join (', ',@ARGV), "\n\n";

[evdb@machine]$ perl close-the-source.pl test.pl out.pl
Please type the password now: secret
...
Arguments are: 1, 2, 3

[evdb@machine]$