$ssh_cmd = Expect->spawn("ssh $host uptime");

unless ($ssh_cmd->expect(3, "password:")) {
  print "ssh error";

print $ssh_cmd "password";