sub read_passfile {
	%passfile = ();
	open (PF, "$pass_file") or die "Couldn't read password file: $!";
	while (<PF>) {
		chomp;
		@_ = split("\t", $_);
		$passfile{ $_[0] } = $_[1];
	close PF;
	}

}

##</code><code>##

        my $check_me = my $check_me = $form_data{ 'new_user_name' }; 
        my $h = \%passfile;
		my @c = [$h, $check_me];
		my $d = Data::Dumper->new(@c, \@c);
		print $q->header;
        print $d->Dump;
        exit;