$ perl -e 'eval{die @_ if $^S;}'