Update: Beside the module suggestion: please disregard this post, as I completly misread the OPs problem, especially the strange date-format.

I'd suggest using Time::ParseDate: Or/And any other Time::XXX module that suites your needs.

 
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";
 }
[download]

regards,
tomte