Just a quick example, I want this to time out On MY conditions when no connection can be set up to the entered IP address,believe me, there were a LOT of alarms, evals, etc. in here ;))

#!/usr/bin/perl -w

use strict;
use IO::Socket;


die "Usage: <IP address> <Port>\n" unless (scalar @ARGV==2);

my $Status="Failed";
my ($Host,$Port)=@ARGV;

my $Socket=IO::Socket::INET->new("$Host:$Port");

$Status="Okay" if $Socket;

die "Everything $Status\n";
[download]