die "invalid dir" unless ($dir =~ m/^([a-zA-Z0-9]+)\z/);

##</code><code>##

die "invalid dir" unless ($dir =~ m/^([\/\w-]+)\z/);

##</code><code>##

use CGI::Carp 'fatalsToBrowser';