#!/usr/bin/perl -w

## georgia cash 4, drawings every day.
## pretty good odds, not that i ever play.
#

use strict;
use LWP::Simple;
use HTML::TableExtract;
use Date::Calc qw(Today 
		   Day_of_Week
		   Add_Delta_Days
                     	   Day_of_Week_to_Text
		   Date_to_Text
		   Date_to_Days
		   Decode_Date_US);

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