programming-examples/perl/SystemFunction/Seed rand with the time or the pid of this process.pl

#!/usr/bin/perl
$num=10;
srand(time|$$);  
while($num){    
     $lotto = int(rand(10)) + 1;
     print "The random number is $lotto\n";
     sleep 3;
     $num--;
}