use strict;
use warnings;

foreach my $m (0 .. 9){
    srand $m;
    my $r = rand(10);
    print "value=$r\n";
}
