#!/usr/bin/perl -w
use strict;
use Time::Local;
use POSIX;
 
my @st_date = split/-/, $ARGV[0];
my @nd_date = split/-/, $ARGV[1];
 
my $st_dt   = timelocal (0, 0, 0, $st_date[2], $st_date[1] - 1, $st_date[0]);
my $nd_dt   = timelocal (0, 0, 0, $nd_date[2], $nd_date[1] - 1, $nd_date[0]);
 
my $s_dt_fmt = POSIX::strftime ("%Y-%m-%d", localtime($st_dt));
print "$s_dt_fmt\n";
 
my $num_days = ($nd_dt - $st_dt) / 86400;
 
for (my $i = 1; $i <= $num_days; $i++) {
    my $nxt_dt = $st_dt + ($i * 86400);
    my $n_dt_fmt = POSIX::strftime ("%Y-%m-%d", localtime($nxt_dt));
    print "$n_dt_fmt\n";
}