#!/usr/bin/perl

use strict;
use warnings;

use Date::Manip;

my $start_date_str = '080225';
my $end_date_str   = '080304';

my $std_start_date_str = join( '-', substr($start_date_str, 0,2 ), substr($start_date_str, 2) );
my $std_end_date_str   = join( '-', substr($end_date_str, 0,2 ),   substr($end_date_str, 2) );

my $current_dt = ParseDate( $std_start_date_str);
my $end_dt     = ParseDate( $std_end_date_str);

while( $current_dt le $end_dt) {
    my $display_date_str = UnixDate( $current_dt, '%y%m%d' );
    print "$display_date_str\n";
    $current_dt = DateCalc( $current_dt, '+ 1 day');
}