#! /usr/local/bin/perl

($sec, $min, $hr, $dayOfMonth, $month, $yr,$weekday, $dayOfYear, $dayLightStandardTime) = localtime(time);
if ( ($month == 11) && ($dayOfMonth == 23 || $dayOfMonth == 24) ){
   print "Merry Christmas World \n";
}
else {
    if ($hr > 18){
      if ($hr < 21){
         print "Good Evening World\n";
      }else {
         print "Good Night World\n";
      }
    }elsif ($hr > 12){
       print "Good Afternoon World\n";
    }elsif ($hr > 6) {
        print "Good Morning World\n";
    }else {
        print "Go to BED already! \n";
    }
}