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

d:\tmp>