perl -e 'print exp 1'