C:\>perl -le "eval q!die!;print $@"

##</code><code>##

Died at (eval 1) line 1.

##</code><code>##

C:\>perl -le "eval q!print $^O! for 1..10; eval q!die!;print $@"

##</code><code>##

MSWin32
MSWin32
MSWin32
MSWin32
MSWin32
MSWin32
MSWin32
MSWin32
MSWin32
MSWin32
Died at (eval 11) line 1.