能經由輸入西元年得到農曆年的程式。
#!/usr/bin/perl use Date::Chinese; $year = yearofthe( 1999 ); print $year; # "Year of the hare"