Select Code to Download

use Net::SSH::Perl;
...
my($tout, $terr, $texit) = $ssh->cmd($tcmd); # this is the line that d
+ies
print "OUT:$tout, ERR:$terr, EX:$texit\n";

$output = system("/export/home/test/public_html/devel/scp_file.pl $loc
+al_filename $remote_box $remote_base $remote_path $remote_file", $ret
+urn_var);