Select Code to Download

unless ( $object->method('param') ) {
    ## somehow get $errstr
...
}

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

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

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