#!/usr/bin/perl

use strict;
use IO::Select::INET;

my $sock = IO::Select::INET->new(
  PeerAddr => '(host)',  # where host is some host I knew
  PeerPort => 'ftp(21)', # or http(80) or whatever
  Proto    => 'tcp'
);

print defined $sock ? 'Connected!' : $@, "\n";
exit 0;