Select Code to Download

use IO::Socket;
use IO::Select;
...
print "Terminating Server\n";
close $main_sock;
getc();

use IO::Socket;
use IO::Pipe;
...

close ($sock);