BEGIN not safe after errors--compilation aborted at /usr/local/lib/perl5/5.12.2/diagnostics.pm line 569.