Shell Programming and Scripting

#!/usr/bin/bash
use IO::Socket::INET;
$|=1;
$socket=new IO::Socket::INET->new(LocalPort=>5001,
						    Proto=>'udp',
						    timeout=>5);
print "\nUDPServer Waiting for client on port 5001 and will timeout in 5 secs";
$socket->recv($recieved_data,1024);
print "\nReceived data $recieved_data \n \n";

#!/usr/bin/perl
use IO::Socket::INET;
$|=1;
$socket=new IO::Socket::INET->new(LocalPort=>5001, Proto=>'udp');
print "\nUDPServer Waiting for client on port 5001 and will timeout in 5 secs";
eval {
  local $SIG{ALRM} = sub { die 'Timed Out'; };
  alarm 5;
  $socket->recv($recieved_data,1024);
  print "\nReceived data $recieved_data \n \n";
    alarm 0;
};
alarm 0;
print "\nError: timeout \n" if ( $@ && $@ =~ /Timed Out/ );