use Fatal qw( warn );

I believe that's a no op. What did you mean for it to do? (What it is doing is replacing calls to the builtin warn with calls to a subroutine that does the warn and throws an exception if the warn fails...but warn never fails. Even if outputting to STDERR fails, warn still returns true.)

Did you possibly mean to say use warnings FATAL => "all";?