It shouldn't take 15s to connect. Your friend should read the section "Debugging" in Net::Telnet to turn on a debug log. And/or use a network sniffer to obverse the network packages and find out where the 15 seconds are wasted.

Also if you want specific answers, posting the source code would help tremendously