$exp->expect(10,
  $ssh_host,
  sub {
    print $exp "term length 0\n";
  }
);

$exp->expect(10,
  $ssh_host,
  sub {
    print $exp "sh clock\n";
  }
);

$exp->expect(10, $ssh_host,
  sub {
print $log_fh "\n==> A\n"; # print to log to show I'm there
    print $exp "\nsh ver\n";
print $log_fh "\n==> B\n";
  }
);

$exp->exp_internal(0);
$exp->expect(10, $ssh_host,
  sub {
print $log_fh "\n==> Z\n"; # print to log to show I'm there
    print $exp "exit\n";
print $log_fh "\n==> Y\n";
  }