eval {
    open my $thingy, "something" or die $!;
    die "something\n" if $something;
};

if( $@ ) {
    if( $@ eq "something\n" ) {
        # logging here

    } else {
        die $@;
    }
}