Testsuite: convert posgreql testing to standalone
[exim.git] / 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 }