Help for this page

Select Code to Download


  1. or download this
    my $diceone = int(rand(5)) + 1;
my $dicetwo = int(rand(5)) + 1;
  2. or download this
    my @dicearray = ($dice1,$dice2,$dice3,$dice4,$dice5,$dice6);
  3. or download this
    print "Rolling first die resulted in : \n";
print $dicearray[$diceone-1];
print "Rolling second die resulted in : \n";
print $dicearray[$dicetwo-1];