+ my $s = IO::Socket::INET->new(PeerHost => $serv, PeerPort => $port);
It seems that "my " should not be in the above line.
Yup! Your right. Will send a new patch with the fixes in a few hours.
Saludos. Iñaki.
--
School of Management
Mondragon University
20560 Oñati - Spain
+34 943 718009 (ext. 225)