Help for this page

Select Code to Download

Select or download this

    my ($mday, $mon, $year) = split /\//, $dated;