Hi,

>#!/usr/bin/perl
>
>for($x = 0; $x < 30; ++$x){
>        $it  = 100 * rand * rand * rand;
>        print "It is $it\n";
>}

I'm not sure why but the following seems to work:

for($x = 0; $x < 30; ++$x){
        $it  = 100 * $rand() * $rand() * $rand();
        print "It is $it\n";
}

Bye,
Hans Mikelson