====================================
#!/usr/local/bin/perl  

use strict;

### Create variables to split date to get what day of the month it is

my $second;
my $minute;
my $hour;
my $dayOfMonth;
my $month;
my $yearOffset;
my $dayOfWeek;
my $dayOfYear;
my $daylightSavings;

### Split values into variables

($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();

print "Today is day $dayOfMonth.";
====================================