perl -e 'my $_=1'