Select Code to Download

use Net::Cisco;
use Net::Telnet();
...
close(CONFIG);
$k->close;
$t->close;

use Net::Cisco;
my $t =Net::Telnet::Cisco->new(Host=>'10.0.0.1');
...
print CONFIG "$output[4]^$output[11]\n"; 
close(CONFIG);
$t->close;