test/aux-fixed/0601.udpserver

   1 #!/usr/bin/perl
   2 use IO::Socket::INET;
   3 use IO::Select;
   4
   5 if (fork != 0) {
   6   sleep 1;
   7   exit 0;
   8 }
   9
  10 my ($select,$socket,$received_data);
  11
  12 $socket = new IO::Socket::INET (
  13   LocalPort => '1223',
  14   Proto => 'udp',
  15 ) or die "ERROR in Socket Creation : $!\n";
  16
  17 $select = IO::Select->new($socket) or die "IO::Select $!";
  18
  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";
  23 }