Shell Programming and Scripting

use Net::Telnet;
my $filepath="C:\\file.txt";
my @output;

my $username="user";
my $passwd="passwd";
my $enapass="ena";

open (FILE, "<$filepath");
    @records=(<FILE>);
    foreach $host(@records)
    {
    chomp ($host);
    print "$host\n";
    TELNET();
    } 
close (FILE);

 sub TELNET {
        my ($host) = @_;
          my $t;  
        if (eval {$t = Net::Telnet->new(Host => $host)})  
        {
          print STDERR "Configuring $host\n";
          $t->open($host);
          $t->waitfor('/Press any key to continue/');
          $t->print('');
          $t->waitfor('/Username:\s*/');
          $t->print($username);
          $t->waitfor('/Password:\s*/');
          $t->print($passwd);
          $t->print('enable');
          $t->waitfor('/Password:\s*/');
          $t->print($enapass);
          $t->print('config t');
          push(@output, my @lines=$t->cmd('logging 10.10.10.10'));
          print "@output";
          $t->close;
} else 
{  print "failed"; 
}

 $t->print('') if $t->waitfor('/Press any key to continue/') == 1;