If you are trying to communicate with Cisco routers, you might want to look at Net::Telnet::Cisco. If you're not into Cisco's, you can always use Net::Telnet and grow your own.

A search on this site for Net::Telnet produces some links that may be useful as well. Maybe Using Net::Telnet::Cisco or Using Net::Telnet::Cisco toTelnet from Host to Host.

@a=split??,'just lose the ego and get involved!';
for(split??,'afqtw{|~'){print $a[ord($_)-97]}