my $rc = eval{( $ret =~ />\s*|$\s*\z/) or die "where's the remote prompt?";};
        if($rc) {
                if($ret =~ m/[Pp]assword:/) { 
                    print("Couldn't connect to host\n");
                }
        }