tnx guys, ive tried what GRINDER recommended and heres what happened to my code:

use IO::Socket;

sub doit
{
$ip1="210.22.106.31";
$host="$ip1";
$port="23";
$fnd="";

$pong=`ping -c 3 $host`;
$fnd=($pong=~m/(..)%/gi);
$xcd=$1;  

 if ($xcd!=00)
 {    

 $SIG{ALRM} = \&timed_out;
 eval { 
 alarm (3); 
 $remote = IO::Socket::INET -> new (
             Proto => "tcp",
             PeerAddr => $host,
             PeerPort => $port,
         Timeout => 2
             ) or die "." ;
 alarm (0); 
 };
 sub timed_out {
 die ".";
 }

 $| = 1;

if ($remote) 
{
close $remote;
print "Socket ready...\n";
}
else
{
print "Try again...\n";
}
}
else
{
print "Pinged timed out!\n";
}
[download]

This doenst seem to work? It also hangs just as before? sigh... got any substitute for EVAL which works for Sockets? Thank you all for helping me. I really dont know what to do next? Lovelots and *mwah* *mwah* *mwah*, Cherry.