opendir DIR, "that-dir"; my @files = readdir DIR; # or whatever methos Mail::Box uses print "count is ", $#files+1;