[evdb@machine]$ perl close-the-source.pl test.pl out.pl
Please type the password now: secret


Right - run 'perl out.pl | perl - args' and stop pestering us.

[evdb@machine]$ perl out.pl | perl - 1 2 3
Please type the password now: secret
Look Dad - we can make millions now!

Arguments are: 1, 2, 3

[evdb@machine]$