open (FILE, "$datafile") or die "Can't read: $!";
while (<FILE>) {

    ($user, $pw) = split "\|";
    $field{$user} = $pw;
foreach (keys %field) {
    print <<EOF; 
$field{$_}<BR>
EOF
}
}


@users = split(/,/,$INPUT{'users'});  #i'm using checkboxes
#foreach $users (@users) {
delete $field{'$users'};
print <<EOF;
$users        #debug
EOF
#}#foreach users




open (FILE, ">$datafile") or die "Can't write: $!";
foreach (keys %field) {
    print FILE "$_\|$field{$_}\n";
    print <<EOF; 
$field{$_}<BR>
EOF
}
close(FILE);
}