10 my ($select,$socket,$received_data);
12 $socket = new IO
::Socket
::INET
(
15 ) or die "ERROR in Socket Creation : $!\n";
17 $select = IO
::Select
->new($socket) or die "IO::Select $!";
19 if (scalar ($select->can_read(5)) == 1) {
20 $socket->recv($recieved_data,1024);
21 select(undef, undef, undef, 0.5);
22 print "received: $recieved_data\n";