use DateTime;

# ...

sub DoBrangefromAges {
    my $min = shift || 0;
    my $max = shift || 0;
    my $inclusive = $_[0] ? 1 : 0;

    my ($xs,$ns) = (DateTime->now, DateTime->now);
    $xs->subtract(years => $min, days => -$inclusive);
    $ns->subtract(years => $max, days => 364 + $inclusive);

    return $xs->ymd('-'), $ns->ymd('-');
}

##</code><code>##


##</code><code>##


##</code><code>##