Select Code to Download

use strict;
use Net::Telnet::Cisco;
...
    $Telnet->login(Name => 'rschuman', Password => 'tagheuer1') or die
+ "Cannot log into device '$_': $!\n";
    print $log "$_\n", map $Telnet->cmd($_), 'show line aux 0';    
}

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

close LOGFILE;
close SEEDFILE;