Age Status Checking perl.