programming-examples/perl/SystemFunction/Let system determine seed.pl

srand();  

for (1 .. 3) {

   print "\n\nAfter seed has been reset\n";

   for ( 1 .. 3 ) {
      print "  ", 1 + int( rand( 6 ) );
   }

}