Help for this page
return if $fileName !~ /[\w]+\.(?:cgi|p[lm])$/;
return unless /^\w+\.(?:cgi|p[lm])$/;