Listing 2. Perl5 Frame Error Rate, 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";
}