Select Code to Download

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

$perm=400 if grep {/$file/}, qw(catalina.properties \.key$ tomcat-user
+s.xml);