my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime(time);

my $today = time;
print "$today<br><br>";


foreach (keys %entries)
{
  my ($date, $course, $location, $job_type, $contact) = split(/::/, $entries{$_});
  print "$date<br>";
}



foreach (keys %entries)
{
  my ($date, $course, $location, $job_type, $contact) = split(/::/, $entries{$_});
  my ($d,$m,$y) = split /\./, $date;
  my $saved_date = timelocal(0,0,0,$d,$m-1,$y);
  my $days_diff = int( ($today - $saved_date) / (24*60*60) );
  print "Day: $d  Month: $m  Year: $y<br>";
}