#!/usr/bin/perl -w

use strict;

my $i;

foreach $i ($ARGV[0]..$ARGV[1])
{
    print $i."\n";
}