Select Code to Download

my $pty = new IO::Pty;
$pty->set_raw();
...
}
close $pty->slave;
event_loop_passing_data_between($pty, $socket)

use POSIX;
my $pid = fork();
...
    close STDIN; close STDOUT; close STDERR;
    RunCommand( ... );
}