use strict;
use Net::Cisco;
use Net::Telnet();
$t =Net::Telnet::Cisco->new(Host=>'192.168.1.1');
print "connected";
$t->login('9190', 'KUM@R425');
$t->cmd("telnet 192.168.201.3");
print "connected";
$t->waitfor('password:$/i');
$t->print("public");
$t->waitfor('>$/i');
@output=$t->print("show system");
open(CONFIG,">config.txt");
print CONFIG "@output\n"; 
close(CONFIG);
$t->close;