#!/usr/bin/perl
use Date::Easter;

#
# Calculates easter for a particular year
# Usage: 
# easter 
# (to calculate easter for this year) or
# easter 1983
# (to calculate for a particular other year)
#

my @months = qw(January February March April May June July August
September October November December);

my $year;
if ($ARGV[0]) {
    $year = $ARGV[0];
    print "In $year, ";
} else {
    $year = (localtime(time))[5] + 1900;
    print "This year, ";
}

my ($month, $day) = gregorian_easter( $year );

print "Easter falls on ";
print $months[ $month - 1];
print " $day in the Gregorian reckoning,\nand on ";

($month, $day) = orthodox_easter( $year );
print $months[ $month - 1];
print " $day in the Orthodox reckoning.\n\n";