
@folders = `find mail -type f`;
foreach(@folders)
{
    chomp $_;
    $maildir = $_;
    $maildir =~ s/^mail/$1Maildir/; # must be first (unless they're called mail)
    $maildir =~ s/\//\./g;
    system "perl mbox2maildir.pl $maildir < $_\n";
}
