#!/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: $!";