When IO::Socket::INET->new() is unable to make the socket connection
it returns false instead of a socket object. So you probably don't want
to die just because a port is ignoring you. Try or $sock = ''
instead of or die $!,$@
Further reading of the IO::Socket::INET POD reveals that you can
give Timeout => 5, as part of the hash passed to ->new()
I have tried your scanner, it does work , but the mechanism you use in makeconn to connect , never seems to return any info.
I can't believe it's not psellchecked
|