Greetings,

...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]

With a 99% chance, you are forgetting a check like the one above.
Cheers,
alf

---

You can't have everything: where would you put it?