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