TOD Greeter

main.pl

#!/usr/bin/env perl                                                             

use Modern::Perl '2014';

my $hour = (localtime)[2];
my $TOD  = do { if($hour < 12)    { "morning"}
                elsif($hour < 17) { "afternoon"}
                else              { "evening"}};

say $TOD