Select Code to Download

    $len = $obj->max_buffer_length;

    $prev = $obj->max_buffer_length($len);

    $ok = $obj->cmd($string);
    $ok = $obj->cmd(String   => $string,
...
                    [Prompt  => $match,]
                    [Rs      => $chars,]
                    [Timeout => $secs,]);

eval {
        my @lines = $obj->( String => 'who', # your long command here
...
} else {
        print "success\n";
}