#!/usr/local/bin/perl
use warnings;
use strict;
use Date::Manip;
die "usage: $0 date-from date-until"
    if @ARGV != 2;
my ($from, $until) = map { ParseDate($_) || die "bad date $_" } @ARGV;
die "until-date $until is before from-date $from\n" if Date_Cmp($from, $until) > 0;
$_ = ParseDate(UnixDate($_, '%Q')) || die foreach ($from, $until);
my @todo;
for (my $d = $from; Date_Cmp($d, $until) < 0; $d = DateCalc($d, '+ 1 day') || die) {
    push @todo, UnixDate($d, '%Q') || die;
}

foreach (@todo) {
    die "file $_ already exists\n" if -e;
}

foreach (@todo) {
    print STDERR "$_\n";
    open FH, '>', $_ or die "cannot create $_: $!";
    close FH or die "cannot close $_: $!";
    my $time = UnixDate($_, '%s') or die;
    utime $time, $time, $_ or die "cannot utime $_: $!";
}