use Net::Cisco;
my $t =Net::Telnet::Cisco->new(Host=>'10.0.1.1');
my @output;
my $tl=0;
$t->login('9190','KUM@R425');
$t->print('telnet 192.168.203.23')or $tl=1;
$t->waitfor('/password:/');
$t->print('public');
$t->waitfor('/]>/');
@output=$t->print('show system');
print @output;
$t->waitfor('/]>/');
$t->print("exit");
open(CONFIG,">config.txt");
print CONFIG "@output\n"; 
close(CONFIG);
$t->close;