my ($checked) = $submitted =~ m/^([a-zA-Z0-9])$/;
if (!defined $checked) { croak "Invalid name or password.\n" }