perl -wnl -e

##</code><code>##

perl -w -0777 -e