d:\tmp>perl -MCarp -Mdiagnostics -e"croak 'bla'"
Uncaught exception from user code:
        bla at -e line 1.

d:\tmp>