sub doit
{
$host="$aa.$bb.$cc.$dd";
$port="23";

$remote = IO::Socket::INET -> new (
             Proto => "tcp",
             PeerAddr => $host,
             PeerPort => $port,
	     Timeout => 1
             );
$| = 1;


if ($remote) 
{
close $remote;
print "Socket ready...";
}
else
{
print "Try again!";
}
}