System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Seed rand with the time or the pid of this process
#!/usr/bin/perl
$num=10;
srand(time|$$);  
while($num){    
     $lotto = int(rand(10)) + 1;
     print "The random number is $lotto\n";
     sleep 3;
     $num--;
}