perl -w -0777 -e