NAAHH...
Too fast there....
Hangs on this code... gotta figure out why?

#!/usr/bin/perl -w
use strict;
use Email::Simple;

my $dir = ".";
opendir (DH, $dir) or die "Can't open directory $dir: $!";
    
while (defined (my $file = readdir(DH))) {
   next if ($file =~ /^\.\.?$/);                        
   open (FH, "$dir\\$file") or die "Can't open $dir\\$file: $!\n";    

   my $e = do { local $/; <FH> };    # slurp .msg file                
   my $mail = Email::Simple->new($e);    # convert to mail object (?)
   $e = $mail->body;            # retrieve body text
   print $e;                # dump to STDOUT

   close(FH) or die "Can't close $dir\\$file: $!\n";    
}
closedir(DH) or die "Can't close $dir: $!";
[download]

allan