$sock = IO::Socket::INET->new(LocalAddr =>'localhost',
   LocalPort => '69',
   Proto    => 'udp');