elsif ($option eq 'f') {
  print "Who are you looking for?\n";
  chomp(my $f = <STDIN>);
  $f =~s/\cM//g;
  if (!&find($f)) {
  	print "Name $f cannot be found in the directory.\n";
}