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

d:\tmp>

##</code><code>##

d:\tmp>perl -Mdiagnostics -e"disable diagnostics; die 'bla'"
bla at -e line 1.

d:\tmp>