my $my_header = $header;
   $my_header =~ s/system/$system/;
   my $ssh = Expect->new('ssh amagana@' . $system);

   $ssh->log_file($filename);
   $ssh->debug(1);
   $ssh->print_log_file($my_header);
   $ssh->expect ( $timeout, ...