#!/usr/bin/perl -w
#find-missing-files.pl
use strict;
use Date::Calc qw( Delta_Days Add_Delta_Days );

my (@start, @stop);
my $from = $ARGV[0];
my $to = $ARGV[1]; 

$from =~ s/-/,/g; 
$to =~ s/-/,/g;

#@start = $from; print "@start\n";
#@stop = $to;  print "@stop\n";

@start = (1999,05,27);
@stop  = (1999,06,01);

my $j = Delta_Days(@start,@stop);

for ( my  $i = 0; $i <= $j; $i++ ) {
    my @date = Add_Delta_Days(@start,$i);
    printf("%4d-%02d-%02d\n", @date);
}