use IO::Socket;
use Socket;

my $port='3000';
       $socket = new IO::Socket::INET->new(PeerAddr => $ip,
       PeerPort => $port,
       Proto    => 'tcp',
       Timeout  => 2,
       )
       or print "could not create bind to $_. port $port: $@\n" and $exit_status=2 ;
       close($socket);