eval { $lock->remove() };

if ($@) {
    if (my $exception = My::Exception::Lock::NotFound->caught()) {
        warn $exception;
    } else {
        die $@;
    }
}