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