#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new(Proto=>"udp", PeerPort=>"162", PeerAddr=>"192.168.1.1") || 1000;
if($socket==1000)
{
	print "Port Closed";
}
else
{
	print "Port Open";
}

close($socket);