use strict;
use IO::Socket;

my ($host,$port) = ("localhost","9000");

my $remote = IO::Socket::INET->new(
    Proto    => "udp",
    PeerAddr => $host,
     PeerPort => $port
  ) or log_die "cannot connect to $host - $port\n";
die("[Connected to $host:$port]\n");

syswrite($remote, "Yooo\n")

##</code><code>##

use strict;
use IO::Socket;


my $socket=IO::Socket::INET->new(LocalAddr => 'localhost',
                                 LocalPort => 9000,
                                 Proto     => 'udp')
or die "socket: $!";

my $length;
while (defined($length=sysread($socket, my $buffer, 65536)) && $length != 0)
{
  die "sysread: $!" if (!defined($length));
  # When I have a connect from a client start another very big script :)
  system('./sleep.pl');
  exit;
}