Select Code to Download

#!/usr/bin/perl
use Expect;
...
    print $output . "\n" if $output;
    $session->soft_close;
}