perl -e "use strict; for (my \$i = 0; \$i < 100;  \$i++) { if (\$i > 0) {print ',';} print \$i; } print \"\n\";";