C:\Users\alex>perl -MWin32 -E "sub false { 0 } eval { my $x=false or die 'Died'; say 'not reached'; 1 } or Win32::MsgBox(qq[$@]);"