my $start_date = param('start_date');
my $end_date = param('end_date');

print header;

print "$start_date to $end_date <br>";

        my $start_date_parsed=ParseDate($start_date);
        my $end_date_parsed=ParseDate($end_date);

print "$start_date_parsed to $end_date_parsed <br><br>";


       my $delta=Delta_Format(DateCalc($start_date_parsed,$end_date_parsed),'',"%dv");
        print "$delta delta-days<br />\n";

        for my $day (0..$delta) {
            my $this_date=DateCalc($start_date_parsed, "+$day day");
            my $this_date_formatted=UnixDate($this_date,"%m-%d-%Y");
            next unless ( Date_IsWorkDay($this_date));
            print "For-Day $day: $this_date_formatted<br />";
}

print end_html;