perl -e"print 077"