#!/usr/bin/perl

   use strict;

   my ($beg, $end) = qw(10 20);

   my $range = ($end - $beg) + 1;

   for (1..6) {
      print int(rand($range) + $beg) . "\n";
   }