Select Code to Download

$ cat test1.pl
#!/usr/bin/perl
...
two
three

unshift(@ARGV, '-') unless @ARGV;
    while ($ARGV = shift) {
...
        ...        # code for each line
    }
    }