belle (valid)
everglades  (valid)
hugger  (not valid)

##</code><code>##

my $ssh = Net::SSH::Expect->new (
    host => "$current_server",
    user => "$user",
    raw_pty => 1
);
# removed the eval
$login_output = $ssh->run_ssh();
print("$current_server \$! = $!\n");
print("Login output for $current_server = $login_output\n");

($ssh->read_all(2) =~ />\s*|$\s*\z/) or die "where's the remote prompt?";
$ssh->exec("stty raw -echo");

##</code><code>##

belle $! = Illegal seek
Login output for belle = 1
belle        Dump device: /dev/zvol/dsk/rpool/dump (dedicated)
everglades $! = Illegal seek
Login output for everglades = 1
everglades        Dump device: /dev/md/dsk/d101 (swap)
hugger $! = Illegal seek
Login output for hugger = 1
SSHProcessError The ssh process was terminated. at ./script.pl line 39