Select Code to Download

$perm = 400 if $file =~ /catalina\.properties|\.key$|tomcat-users\.xml
+/;

$perm = 400 if grep { $file =~ $_ }, qr/catalina.properties/, qr/\.key
+$/, qr/tomcat-users.xml/;