programming-examples/perl/Statement/The range operator and foreach loop.pl

foreach $hour (1 .. 24){  
     if ($hour > 0 && $hour < 12) {
        print "Good-morning.\n";
     }
     elsif ($hour == 12) {
        print "Happy Lunch.\n";
     }
     elsif ($hour > 12 && $hour < 17) {
        print "Good afternoon.\n";
     }
     else {
        print "Good-night.\n";
     }
}