#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;

# In 2 days it will be Tuesday, 1st October 2013
my $month = 10;
my $year = 2013;
my $day_name = Time::Piece->strptime("$year$month" . '01', '%Y%m%d')->fullday;

print "01-Oct-2013 is a $day_name";

##</code><code>##

01-Oct-2013 is a Tuesday