Select Code to Download

SEND( TYPE q or Q to Quit):

...
RECIEVED:
SEND( TYPE q or Q to Quit):Terminating on signal SIGINT(2)

use IO::Select;
use IO::Socket();
...
        $session->send($send_data);
        $session->recv($recieved_data,1024);print "\n RECIEVED: $recie
+ved_data";}
}