Select Code to Download

use IO::Pty;

...
my $out = run_in_pty($cmd);

print "$cmd: '$out'\n";

#!/usr/bin/perl

...
    print STDERR "msg-to-stderr\n";
}
print "msg-to-stdout\n";

$ ./bsub >output 2>&1