if(param()){
    my $name    = param('name');
    my $update  = param('search');
    
	if($search eq "Exact"){
          if($name) {
            if(exists $snailmail{$name} {
              print "$snailmail{$name};
                }
		else( print "Name not found in directory");
               }
		else( print "Please enter a name to search for";
	}

       if($search eq "All") {
           foreach (sort keys %snailmail) {
              print "$_ : $snailmail{$_}";
          }