Select Code to Download

#!/usr/bin/perl -w

...
my @today = Today();
my $current_dow = Day_of_Week(@today);
my @lotto_dates;

my $end_date;

...

close(HTML);
close(NUMBERS);