use diagnostics;

perl -Mdiagnostics test.pl
Hello
Middle
Died at test.pl line 9 (#1)
    (F) You passed die() an empty string (the equivalent of die "") or
    you called it with no args and both $@ and $_ were empty.
     
Uncaught exception from user code:
        Died at - line 9.
        main::a(1) called at - line 4