my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = localtime(time);
my $thishour = ('0','1','2','3','4','5','6','7','8','9','10','11','12','1','2','3','4','5','6','7','8','9','10','11','12') [(localtime) [2]];
my $thismonth = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[(localtime)[4]];

my $thisday = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[(localtime)[6]];
my $day_number = ('1','2','3','4','5','6','7')[(localtime)[6]];

$mon++;
$year += 1900;

#I'm having problems figuring out how to find the date five days from today's date.

print "Today is $thisday, $thismonth, $mday, $year";