sub handleNewYear {
   # do something really useful
}

# ... lotsa logic...
if($mday==1 && $month==1) {
   handelNewYear();
}