Select Code to Download

use IO::Socket;
use strict;
...
) or die "Could not create socket: $!\n";
select($sock); $|=1;
$sock->send("message from client") or die "Send error: $!\n";

use IO::Socket;
use strict;
...
while($server->recv($datagram, $MAX_TO_READ)){
        print $datagram;
}