Mother's Day

today is mother's day, please don't forget it. :)

use Date::Holidays::CN;
   
my ($year, $month, $day) = (localtime)[ 5, 4, 3 ];
$year  += 1900;
$month += 1;
if (my $holidayname = is_cn_holiday( $year, $month, $day )) {
    print $holidayname;
}