Shell Programming and Scripting

$username="username";
$password="pass";
$enapass="enable";

my $filepath="D:\\scripts\\"."devicelist.txt";
use Net::Telnet::Cisco;
open (FILE, "$filepath");
@list=(<FILE>);
close(FILE);

foreach (@list) {
$host=shift @list;
chomp ($host);
print "$host \n";
&DEVICE_TELNET;
}

sub DEVICE_TELNET {
$session = Net::Telnet::Cisco->new(Host => $host);
$session->login($username,$password);
if ($session->enable($enapass) ) {
@output = $session->cmd('conf t');
@output = $session->cmd('logging 10.1.1.1');
print "Configured Logging server: @output\n";
}
$session->close;
}