perl -e 'age=age++;'