if ($@) {
    # Fragile.
    if ($@ =~ /My error message/) { ... }
    else { die $@ }

    # Robust.
    if (blessed($@) and $@->isa("MyError")) { ... }
    else { die $@ }
}