$ perl -MO=Deparse,-p -e" die warn print "
die(warn(print($_)));
-e syntax OK