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

#!/usr/bin/perl

while ($line = <STDIN>) {
   print $line;
}