@d01.02.03 @456 Beat Time is 2003-02-01T09:56:38 Gregorian.
@d04.05.06 @123 Beat Time is 2006-05-04T01:57:07 Gregorian.
@d04.05.06 @085 Beat Time is 2006-05-04T01:02:24 Gregorian.
##</code><code>##

use Date::Japanese::Era;

my $era = Date::Japanese::Era->new(2006, 4, 5);
print "2006 is " . uc($era->name_ascii) . " " . $era->year . "\n";

for my $Emperor (qw(heisei taishou meiji)) {
 $era = Date::Japanese::Era->new($Emperor, 6);
 print uc($Emperor) . " 6 is " . $era->gregorian_year . "\n"; 
}

2006 is HEISEI 18
HEISEI 6 is 1994
TAISHOU 6 is 1917
MEIJI 6 is 1873

##</code><code>##

use Locale::Hebrew::Calendar;
my ($dd,$mm,$yy) = ("04","05","-1806");
# Gregorian to Jewish
my ($d, $m, $y) = Locale::Hebrew::Calendar::g2j($dd, $mm, $yy);
print "G2J: $d/$m/$y\n";

$perl hebrewcal.pl 
G2J: 11/7/1954