Select Code to Download

sub read_passfile {
    %passfile = ();
    open (PF, "$pass_file") or die "Couldn't read password file: $!";
...
    }

}

        my $check_me = my $check_me = $form_data{ 'new_user_name' }; 
        my $h = \%passfile;
        my @c = [$h, $check_me];
...
        print $q->header;
        print $d->Dump;
        exit;