His revised code didn't use CGI::Carp, so it couldn't have given those errors. Did you try to run his program from the command line as it stands?

Note that there was still an error that was caught by the warnings/diagnostics: on line 93, there is a reference to $a, but nothing sets it. You probably want:

foreach my $a (@filenames) {
    print "$a <p>Name:$_</p>";
    }
print "<hr />";
[download]