$socket = IO::Socket::INET->new(Proto=>"udp", PeerPort=>"162", PeerAddr=>"192.168.1.1");
if($socket)