$exp->spawn("ssh -l root $sshHostname") or die "cannot spawn ssh: $!\n";
$exp->expect($timeout,[ qr/RSA/i,#/ 
		   sub { my $fh = shift;
                  $fh->send("yes\n");
                   });
$exp->expect($timeout,'-re','password' => sub { my $fh = shift;
                $fh->send("$sshPWD\n");}
		);
$exp->log_file->print("#Successfully ssh'ed in\n");
$exp->expect($timeout, '-re','~]#' => sub {my $fh = shift;
                $fh->send("cd /u0x/tmp\n");}