#!/usr/bin/perl
for $a ($ARGV[0]..$ARGV[1]) { print "$a\n"; }