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

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