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