Hello.

The errors I found are these:

Line 54: no semicolon at line end. Should be $date = "$mday\/$month\/$year1";

Line 78: elsif without a prior if. Should be if ($name =~ m/\w{3}/) {

I hope these help.

--
Alper Ersoy