Select Code to Download

sub roll_dice {
  my ($low_end, $range) = @_;
  int(rand(int $range/2)) + int(rand(1 + $range - int $range/2)) + $lo
+w_end;
}

sub roll_dice {
  my ($low_end, $range, $dice) = @_;
...
  }
  $low_end + $r;
}