in reply to more ways to filesize

tstock gave you some good refactoring ideas, how about some good formatting ideas? I ran your code through perltidy: 
#!/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: $!";

[download]
With the original code i really had to squint to notice that you were indeed unecessarily calculating the max size inside the while loop.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom