Select Code to Download

#!/usr/bin/perl

...
while ( defined ($line = $ssh->read_line()) ) {
    print $line . "\n";
}