use Time::ParseDate;

my ($date1, $date2) = qw!2002/22/6  2002/22/7!;

my ($sec1, $sec2);
$sec1 = parsedate($date1);
$sec2 = parsedate($date2);

my $diff = $sec2-$sec1;

if ($diff > 0 && $diff <= 86400) {
	openSesame();
} else {
	youReOut();
}

sub openSesame {
   print "IN\n";
 }

 sub youReOut {
   print "OUT\n";
 }