#!/usr/bin/perl -w

use strict;

use DateTime;
use DateTime::Format::Strptime;

my $format = new DateTime::Format::Strptime ( pattern => '%d-%b-%Y', time_zone => 'EST', );
my $start = $format->parse_datetime($ARGV[0])->epoch();
my $finish = $format->parse_datetime($ARGV[1])->epoch();

while ($start <= $finish) {
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$julian,$isdst) = localtime($start);
    printf "%4d%02d%02d|%02d\n",  $year + 1900, $mon + 1,  $mday, int($julian/7) + 1;
    $start += 24*60*60;
}

$ ./test.pl 01-MAR-2011 10-MAR-2011
20110301|09
20110302|09
20110303|09
20110304|09
20110305|10
20110306|10
20110307|10
20110308|10
20110309|10
20110310|10