E:\>perl -le"warn $^E;$^E=1;warn $^E;undef $^E;die $^E"
Warning: something's wrong at -e line 1.
Incorrect function at -e line 1.
Died at -e line 1.