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.