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';	
}