@mbox = `ls -1`;

foreach(@mbox)
{
chomp $_;
print "su $_ -c 'maildirmake /home/$_/Maildir'\n";
print "su $_ -c 'perl /usr/local/migrate/mbox2maildir.pl /home/$_/Maildir < $_'\n";
}