#!/usr/bin/perl -w
use strict;
use Expect;

my $timeout = '5';
my $username = 'luser';
my $newpass = 'luser';
my $oldpass = 'n3wp@ss!';

open(HOSTS,"hosts.txt")
            or die "Error while opening file:$!\n";
            chomp( my @hosts = <HOSTS> );
close(HOSTS)
            or die "Error while closing file:$!\n";
my $exp;
foreach (@hosts) { 
    $exp = Expect->spawn("ssh -l $username $_")
    or die "Cannot spawn ssh: $!\n";;
my $spawn_ok;
#$exp->exp_internal(1);
                  do_exp ($timeout, 'password', $oldpass);
                  do_exp ($timeout, "$username\n", "passwd");
                  do_exp ($timeout, 'password:', $oldpass);
                  do_exp ($timeout, 'password:', $newpass);
                  do_exp ($timeout, 'password:', $newpass);
          }

          sub do_exp {
                  my ($_timeout, $_lookfor, $_send) = @_;
                  if ($exp->expect($_timeout,'-re',$_lookfor)) {
                          $exp->send($_send);
                  } else {
                          die "Timeout waiting for $_lookfor.\n";
                  }
          }