# old style: create a object and invoke certain method
my $jdo = JDhash->new($date);
print $jdo->julianday, "\n";

# modern style: tie a hash and print the property
tie my %jd, 'JDhash', $date;
print $jd{julianday}, "\n";