Select Code to Download

use IO::Socket;
use IO::Select;
...
        }
    }
}

my $sock;
my $message;
...
$socket->recv($sock, 256);
$socket->send($sock);
$socket->recv($message, 256);