#!/usr/local/bin/perl  

use strict;
use warnings;

my @localtime = localtime();

print "Today is day $localtime[3].";