I use Net::Telnet::Cisco (which just uses Net::Telnet) in much the same way. For an example, see Cisco Router Action Performing Perl Script and look at the TELNET_TO sub.