use strict;
use Net::Telnet::Cisco;

open my $log, '>', 'logfilepath' or die "Cannnot open log file : $!\n";

open my $seed, '+<', 'seedfilepath' or die "Cannot open file : $!\n";

while($seed) {
	chomp $seed;
	my $Telnet = Net::Telnet::Cisco->new(Host => $_ or die "Cannot open session to '$seed': $!\n");
	$Telnet->login(Name => 'rschuman', Password => 'tagheuer1') or die "Cannot log into device '$_': $!\n";
	print $log "$_\n", map $Telnet->cmd($_), 'show line aux 0';	
}

##</code><code>##

use strict;
use Net::Telnet::Cisco;
#
open (LOGFILE, '>logfilepath') or die "Cannnot open log file : $!\n";
#
open (SEEDFILE, 'seedfilepath') or die "Cannot open file : $!\n";

my @iplist = <SEEDFILE>;
foreach my $ip (@iplist) {
	select LOGFILE;
	print "$ip\n";
	my $Telnet = Net::Telnet::Cisco->new(Host => $ip) or die "Cannot open session to '$ip': $!\n";
	$Telnet->login(Name => 'user', Password => 'pass') or die "Cannot log into device '$ip': $!\n";
	my $output = $Telnet->cmd('show line aux 0');
	my $matchlines = grep (/Modem hardware state:/,  $output);
	print "$matchlines\n";
}

close LOGFILE;
close SEEDFILE;