open DIR, "/mail";

##</code><code>##

foreach my $f (glob ("/mail/*.*")) {
    open my $fh, "<", $f;
    print scalar <$fh>;
    }