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

##</code><code>##

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