Chinese Valentine's Day

• Seventh day of the seventh lunar month

my $today_zh = DateTime::Calendar::Chinese->now();
$today_zh->set( month => 7, day => 7 );
my $dt = DateTime->from_object( object => $today_zh );

print " I should give my wife a gift on ", $dt->date, "\n";

• run the script - chinese-valentine