You have two possible solutions here (at the very least):

1.) Net::Telnet (which can be found here)
Or
2.) Using IO::Socket to build a socket connection and do the socket data-negotiation manually.

Personally, I'd opt for the first solution, since Net::Telnet has been around for a while. In addition to Net::Telnet, you might also consider Net::SSH if you have the ability to do so.

IO::Socket is good to use if you need to define what type of data needs to be passed back and forth (for example, RPC). If you just want to telnet to a box, run a few commands, capture output, and print it to file, you are shooting yourself in the foot (9 times out of 10) by not using Net::Telnet.

Theodore Charles III
Network Administrator
Los Angeles Senior High
4650 W. Olympic Blvd.
Los Angeles, CA 90019
323-937-3210 ext. 224
email->secon_kun@hotmail.com
perl -e "map{print++$_}split//,Mdbnr;"