use Time::Local;
sub is_leapyear {
  1 == (gmtime(timegm(0,0,1,28,1,$_[0])+24*60*60))[4]
}