Select Code to Download

#!/usr/bin/perl -p

-p causes Perl to assume the following loop around your program,
     which makes it iterate over filename arguments somewhat like sed:
...
                    print or die "-p destination: $!\n";
                }