($ssh = Expect->spawn("ssh -l sysadmin  $server")) || die "couldn't spawn ssh: $!";

unless ($ssh->expect(10,"password")) {
        die "never got username prompt on $server, " .ssh->exp_error(),"\n";
        }
print $ssh "$password\r";

unless ($ssh->expect(10,"sysadmin>")) {
        die "never got sysadmin prompt on $server, " .ssh ->exp_error(),"\n";
        }

print $ssh "listdev\r";