use Class::Date 'date';

if (date($date1) - '4Y' < $date2) {
    ...
}