$ perl -e 'eval{die @_ if $^S; 1} or print "$@"'
Died at -e line 1.