Select Code to Download

use Math::Random;
for ( 1 .. 100 ) {
    my $d1 = random_uniform_integer(1,1,6);
    my $d2 = random_uniform_integer(1,1,6);
    print $d1 + $2, "\n";
}