perl: unlock mutex on error