15.16. p5-Date-Chinese

能經由輸入西元年得到農曆年的程式。

    #!/usr/bin/perl
    
    use Date::Chinese;
    $year = yearofthe( 1999 );
    print $year; # "Year of the hare"