#############################################

use Net::Telnet::Cisco;

open(fd, "iplist.txt")  or die "Can't open the file ip.txt";

while (<fd>)
{
	$ip = $_;
	chomp $ip;
	$usr = 'user';
	$ps = 'password';
	get_connect();
	get_data();
}
close lst;


sub get_data
{
	$ipnfl = $ip."_raw.txt";
	open(ifl,"$ipnfl");
	$opnfl = $ip.".txt";
	open (ofl,">$opnfl");
	while (<ifl>) 
	{
		if ((/^FastEthernet/) || (/^Serial/) || (/^BRI1/) || (/^Ethernet/) ||(/^ATM/) ||(/^Tunnel/) ||(/^Multilink/) ||(/^Dialer/) ||(/^Loopback/) ||(/Internet address is/)) 
		{
			print ofl "$hostname\t";
			print ofl $_;
		}
	}
	close ifl;
	close ofl;
	
}

sub get_connect
{
	$router_IP = $ip;
	$ipfl = $ip."_raw.txt";
	open(fl,">$ipfl") or die "Error";
	$cs = Net::Telnet::Cisco->new( Timeout => 3000, Host => $router_IP) ;
	$cs->errmode("return");
	
  	$cs->login( Name =>$usr, Password => $ps);
	

	@cmd_output = $cs->cmd( 'terminal length 0' );

	$hostname = $cs->last_prompt;
	chop $hostname;
	print fl "Hostname => $hostname.\n";

	print fl "\n\n ::::::::::Show interface output::::::::::::: \n";
	@cmd_output = $cs->cmd( 'show interface' ); 
	print fl @cmd_output;

	$cs->close;
	close fl;
}

#####################################