perl -wle "use 5.10.0;  say  rand foreach(1..100) ;"