#!/usr/bin/perl -w
use strict;
print "Please enter your name: ";
chomp(my $name = <STDIN>);
my @greeting = ("night", "morning", "afternoon", "evening");
my @days = qw/Sunday Monday Tuesday Wednesday Thursday Friday Saturday
+/;
my @months = qw/January February March April May June July August Sept
+ember October November December/;

my @currentTime = localtime();
print "\nGood " . $greeting[int($currentTime[2]/6)] . ", $name";
...
[download]

You can make it a lot shorter, like the code above shows part of.