>perl -le"$x = main; print $x"
main