#!/usr/bin/perl

use strict;
use warnings;
use Date::Day;

print my $result = &day(03,11,2011), "\n",
                   &day(04,11,2011), "\n";