Select Code to Download

# scp test_file.tar.gz usr@host:test_file.tar.gz | scp_capture.pl

#!/usr/bin/perl
...
while ($line = <STDIN>) {
   print $line;
}