#!/usr/bin/perl 
use strict;

my @date = split(" ", localtime(time));
my $day = $date[0]; 
my %days = ();
%days = ("Mon", "Monday", "Tue", "Tuesday", "Wed", "Wednesday", "Thur", "Thursday", "Fri", "Friday", "Sat", "Saturday", "Sun", "Sunday");
print STDERR "Today is $days{$day}\n";