perl my_script.pl | tee my_logfile.dat

##</code><code>##

#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

use Data::Dumper ;

my $home_root  = '/usr/home' ;
my $size_limit = 30 * 1_024_000 ;

opendir HOME, $home_root or die "Couldn't open $home_root: $!" ;

printf "%-25s | %3.2fMB\n", $_->[0], $_->[1] / 1_024_000
   for grep { $_->[1] > $size_limit }
       map  { [ $_ => ( stat "$home_root/$_/INBOX" )[7] || 0 ] }
       grep { -d "$home_root/$_" } readdir HOME ;

closedir HOME ;

exit ;

__END__