#!/usr/bin/perl

  use strict;

  my $beg = 1;
  my $end = 5;

  for my $i ($beg..$end) {
    print "$i\n";
  }