Script started on Wed Dec  1 12:00:28 2004

math-cs:~/web/022> cat myPerl.pl
   print "\n\n";

   for ($i = 1; $i <= 50; $i++)
   {
      $randomToss = int (rand() * 6) + 1;
      print " $randomToss ";
      if ($i == 25) 
      { 
         print "\n"; 
      }
   }

   print "\n\n";

math-cs/~/web/022> perl myPerl.pl 

 3  4  4  4  1  5  6  3  4  2  5  6  6  6  6  5  2  2  1  4  6  5  2  1  2 
 6  1  6  6  6  3  1  2  2  2  2  4  5  5  6  1  5  1  5  3  4  4  5  5  1 


> perl -e 'for ($i = 1; $i <= 10; $i++) { print $i . rand() . "\n";}
Unmatched '.

m> perl -e 'for ($i = 1; $i <= 10; $i++) { print rand() . "\n";}' 
0.556972884181054
0.999639008051844
0.712430837369663
0.783901505262243
0.579124422639399
0.840551068060435
0.475598940995351
0.224720655748648
0.867389424695293
0.3137286431745

> perl -e 'for ($i = 1; $i <= 10; $i++) { print rand() * 100 . "\n";}' 
16.4558490346284
80.8123198195489
59.7993142708344
41.5752613075661
94.4465025223582
97.9612765819169
99.6976702843622
68.9379557775361
64.9671625337223
47.9311919364363
math-cs~/web/022> exit   <------------ control-d to exit script...

Script done on Wed Dec  1 12:03:52 2004