4643l2

Listing 2. Perl5 Frame Error Ratte Thanks to Knuth

#!/usr/bin/perl -w

use Math::Random qw(:all);

my $i;
for($i=0; $i<20; $i++)
{
 $random = (random_uniform(1, 0, 100));
 print "$random\n";

}