#!/usr/local/bin/perl -w
use strict;
open (FH, "userlist") || die "no userlist: $!";
open (FH2, ">output") || die "no output file: $!";
   while (<FH>) {
   chomp;
my $file = ("/usr/home/$_/INBOX");
my $maxsize = (30000*1024);
   if (-s $file)  {
my $size = (stat $file)[7];
my $meg = int ($size / 1024000);
   if ($size > $maxsize) {
printf "%25s %3sMB\n", $_,$meg;
print FH2 "$_:$meg\n";
  }
 }
}
close (FH) || die "couldn't close userlist: $!:";
close (FH2) || die "couldn't close output: $!";