perl -e "die unless $^W"
Died at -e line 1.

perl -we "die unless $^W"