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;

##</code><code>##

use Net::Cisco;
my $t =Net::Telnet::Cisco->new(Host=>'10.0.0.1');
my @output;
my $tl=0;
$t->login('9190','KUM@R425');
$t->print('telnet 192.168.203.23')or $tl=1;
$t->waitfor('/Please enter password: /');
$t->print('public');
$t->waitfor('/]> /');
@output=$t->cmd(string=>"show system",prompt=>'/]>/');
print @output;
print "$output[4]\n";
print "$output[11]\n";
$t->print('exit');
open(CONFIG,">config.csv");
print CONFIG "$output[4]^$output[11]\n"; 
close(CONFIG);
$t->close;