...and while you follow virtualsue's suggestion, take 5 minutes to pepper your code with print statements and error checking clauses, such as:

#turning this...
my $sock=Io::Socket->new(...);
#into this
my $sock=Io::Socket->new(...) or die('foo!');
[download]