use strict;
use IO::File;

my $directory = '/home/******/Mail/.family.directory/Browne, Bill & Martha';

opendir(DIR,$directory);
my @files = readdir(DIR);
closedir(DIR);
foreach(@files){
  $f = new IO::File::open;
  while (<$f>) 
  {
    //.. something here... 
  } 
  print $_,"\n";
}