perl -e 'for(my $i =0 ; $i < 10000; $i++) { `./always_commit r $i`; `sleep .01`;}'