Select Code to Download

$| ++;
use IO::Socket;
...
print $handle $line;
$line = <$handle>;
print $line;

#!/usr/bin/perl -w
use strict;
...
print $socket "\n\nYou chose option $cmd!!!!!!\n\n";
load_interface();
}