Select Code to Download

use POSIX;
use IO::Socket;
...
                                Listen    => 5 )
    or die "Failed to make socket: $!";

use IO::Socket;
                                                                      
+          
...
                                Timeout   => 10 )
    or die $@;