...
print $ssh "listdev\n";

unless ($ssh->expect(10,"sysadmin>")) {
        die "listdev command never finished, " .$ssh->exp_error()."\n";
        }

my $out = $ssh->before();