perl tester-a.pl
Global symbol "$system" requires explicit package name at tester-a.pl line 27.
Global symbol "$ssh" requires explicit package name at tester-a.pl line 28.
Global symbol "$system" requires explicit package name at tester-a.pl line 30.
Execution of tester-a.pl aborted due to compilation errors.


##</code><code>##

#!/usr/bin/perl -w

use warnings;
use strict;
use Expect;

my $filename = "/var/tmp/expect_script.log";
my $header = "\r\n\r\n======= system =======\r\n";
my $timeout = 60;

my @servers = qw(
     remotehost
    
);


for my $server (@servers) {
# do your thing with $server

    change_password($server);

 }

sub change_password {

      my $my_header = $header;
      $my_header =~ s/system/$system/;
      $ssh->print_log_file($header);

      my $ssh = Expect->new('ssh amagana@' . $system);

$ssh->debug(1);
$ssh->log_file("$filename");
$ssh->expect ( $timeout,
      [ qr/Password:/],
      [ qr/Are you sure you want to continue connecting \(yes\/no\)?/]

 );