$len = $obj->max_buffer_length;

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

##</code><code>##

    $ok = $obj->cmd($string);
    $ok = $obj->cmd(String   => $string,
                    [Output  => $ref,]
                    [Cmd_remove_mode => $mode,]
                    [Errmode => $mode,]
                    [Input_record_separator => $chars,]
                    [Ors     => $chars,]
                    [Output_record_separator => $chars,]
                    [Prompt  => $match,]
                    [Rs      => $chars,]
                    [Timeout => $secs,]);

##</code><code>##

eval {
        my @lines = $obj->( String => 'who', # your long command here
                            Errmode => 'die' );

};
if($@) {
        print $@;
} else {
        print "success\n";
}