Help for this page

Select Code to Download

Select or download this

sub get_long_count {
    my ($dd, $mon, $yyyy, $bc) = split /-/, $_[0], 4;