perl -e 'print $i++ for 1'