A couple of things:

1. You'd almost certainly be better to use Storable freeze/thaw to serialise data for transmission via a socket.

   It packs and unpacks faster; is more compact and therefore transmits faster; and doesn't rely upon eval for unpacking and is therefore safer.

2. A proto 'tcp' listening port combined with a 'tcp' client connect, does not make for a "UDP server".

   IO::Socket::INET->new(LocalPort=>5000,Proto=>'tcp',Localhost =>
           'localhost','Listen' => 5 , 'Reuse' => 1 );
   die "could not create $! \n" unless ( $socket );
           print "\nUDPServer Waiting port 5000\n";
   
   ....
   my $socket = new IO::Socket::INET (
                                     PeerAddr  => $host ,
                                     PeerPort  => $port ,
                                     Proto => 'tcp', )
   [download]