Usually, perl already tells you what it thinks is wrong with some code. What did Perl tell you when you ran the program?