5 use Mail::Util qw(read_mbox);
10 -d $file or return ($file);
11 opendir DIR, $file or return ($file);
12 my @contents = map { recurse("$file/$_") } grep !/^\.\.?$/, readdir DIR;
17 my @folders = recurse "$ENV{HOME}/mail";
19 foreach my $folder (@folders)
21 my @messages = read_mbox($folder);
22 foreach my $message (@messages)
27 foreach my $line (@$message)
29 last if $line =~ /^$/;
30 if ($line =~ /^From:[ \t](.*)/)
34 if ($line =~ /^(?:To|Cc)/)
38 elsif ($line !~ /^[ \t]/)
51 print "$from\n" if $print_from and defined $from;