You could try using the Expect module to drive a telnet executable. (I've never used them together.) Or you could see how far you can get with a plain IO::Socket::INET. (Guilty!)