Select Code to Download

perl -we 'use Date::Manip; use Data::Dumper; my ($date, $end) = @ARGV;
+ my %out; while (Date_Cmp($date, $end) <= 0) { push @{$out{UnixDate($
+date, "%A")}}, UnixDate($date, "%b %e, %Y"); $date = DateCalc($date, 
+"+1 day"); } print Dumper \%out;' 'Oct 01, 2005' 'Oct 16, 2005'

$VAR1 = {
          'Tuesday' => [
...
                      ]
        };