Help for this page
die "invalid dir" unless ($dir =~ m/^([a-zA-Z0-9]+)\z/);
die "invalid dir" unless ($dir =~ m/^([\/\w-]+)\z/);
use CGI::Carp 'fatalsToBrowser';