#!/usr/bin/perl -w
use strict;

print "Please enter your name: ";
chomp(my $name = <STDIN>);

my @greeting = ("morning", "afternoon", "evening");

my @days = qw/ Sunday Monday Tuesday Wednesday Thursday Friday Saturday /;

my @months = qw/ January February March April May June July August September October November December /;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;

$year += 1900;

my $greeting =
    $hour < 12 ? 0 :
    $hour < 17 ? 1 :
    2;

print <<"EOT", $hour, $min;

Good $greeting[$greeting], $name.
Today is $days[$day], $months[$mon] $mday, $year.
The time is now %02d:%02d.
EOT