my $day = 28;
my $weekday = 'Thu';
my $year = '2014';
my @months = ('Aug', 'Sep', 'Oct');