Select Code to Download

$ perl -Te'
    my $fn = $ARGV[0];
...

$ cat foo.txt
foo

$ perl -Te'
    my $fn = $ARGV[0];
...

$ cat foo.txt
foo.txt