unless ( $object->method('param') ) {
    ## somehow get $errstr
    my ($errcode) = split ' ', $errstr;
    &$erract{$errcode}($errstr);
}

## %erract contains such things as ('220' => sub { die $_ });

##</code><code>##

unless ( $object->method('param') ) {
    my ($errcode) = split ' ', $_;
    &$erract{$errcode}($_);
}

##</code><code>##

eval { $object->method('param') }; if ($@) {
    my ($errcode) = split ' ', $@;
    &$erract{$errcode}($@);
}