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

open my $log, '>', 'mylogfilepath'
    or die "Cannot writeopen log file: $!\n";

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

while(<$seed>) {
    chomp;
    my $Telnet = Net::Telnet::Cisco->new(Host => $_);
    $Telnet->login(Name => 'user', Password => 'pass');

    print $log "$ip\n", map $Telnet->cmd($_), 'show line 1', 'show line 5';
}