Select Code to Download

# $@ being the shell's quoted argument list
perl program1 $@ | perl program2

# program1.pl
...
...
while(my $line = <STDIN>) {
    do_something($line);
}