...
  my $r = rand($L - $l);
  ...