sub get_days{$m-2?30+($m*3%7<4):28+!($y%4||$y%400*!($y%100))}