eval {
        ...
        1
    } or do {
        my $e = $@ || 'Unknown error';
        ...
    };