#!/usr/bin/perl -w
 
###############################################################
# Extra Modules should be declared here.                      #
# All these modules MUST be found on the server attempting to #
# call this script.                                           #
###############################################################
 
use strict ;                                         # Enforce private variables
use Date::Day ;                                      # Returns the actual day of a date

###############################################################
# Set up variables                                            #
###############################################################
# Date and time variables for headings in Emails/files etc.   #
###############################################################
 
my ($day, $mon, $year) = (localtime) [3,4,5] ;
my $date   = sprintf("%02d/%02d/%04d", $day, $mon +=1, $year += 1900);
 
my $today  = undef ;
 
#####################

print "\n\t\t*** test_day starts ***\n" ;

$day = '9' ;
$mon = '8' ;
$year = '2005' ;

print "\n\t\tDay  :: $day" ;
print "\n\t\tMon  :: $mon" ;
print "\n\t\tYear :: $year\n" ;

$today = &day($day,$mon,$year) ;

print "\n\t\tToday is a $today\n" ;

print "\n\t\t*** test_day ends  ***\n" ;