Select Code to Download

$ perl script.pl data.dat

$ cat data.dat | perl script.pl

    while (<>) {
    ...            # code for each line
    }

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