if (param()) {
    my $name   = param('name');
    my $update = param('search');

    if ($search eq "Exact") {
        if ($name) {
            if (exists $snailmail{$name})  # Missed closing )
            {
                print "$snailmail{$name}";
            } else {
                print " Name not found in directory ");
            }  # Missed open and closing braces
        } else {
                  print " Please enter a name to search for ";

                  #  Nothing here allows a user to enter a name.
        }  # Missed open and closing bracesA
    } elsif ($search eq " All ") {
              foreach (sort keys %snailmail) {
                  print "$_ : $snailmail{$_} ";
              }
    }  # Missed closing brace
}  # Missed closing brace