my $exp = Expect->new;
  $exp->spawn('sh');
  $exp->send( "ssh $host\n" );
  $exp->expect(15, 'assword:', '$ ') == 1 or die "Failed at: " . $exp->before . " ";
  $exp->send( $passwd );
  ...