use Net::Cisco;
use Net::Telnet();
$t =Net::Telnet::Cisco->new(Host=>'$ip');
print "connected";
$t->login('', '');
$t->cmd("telnet 192.168.201.3");
$k=Net::Telnet->new(Timeout=>10,Errmode=>'die');
$k->open("192.168.201.3")or die "$k->errmsg";
print "connected";
$k->waitfor('password:$/i');
$k->print("public");
$k->waitfor('>$/i');
@output=$k->print("show system");
open(CONFIG,">config.txt");
print CONFIG "@output\n"; 
close(CONFIG);
$k->close;
$t->close;