perl -e '$_ = 1'