sub find {
   chomp(my $f = <STDIN>);
   # $f=~tr/\r\z//d;
   #$f =~s/\r\z//;
   $f =~s/\cM//g;
     if (exists $dbm{$f}) {
     my($name, $number, $email, $addr1, $addr2) = split "\0", $dbm{$f};  
   print "$name\n$number\n$email\n$addr1\n$addr2\n\n\n";
 }
   else {
     print "Name $f cannot be found in the directory.\n";
}   
      
  }