sub perform {
    my $code = shift;
    my $result = eval { $code->(@_) };
    if( $@ ) {
        ...
        # error handling
    } else {
        return $result;
    }
};