#! Check Folder Size

use File::Find;

my $total_size = 0;
find(sub { $total_size += -s }, $upload_dir );

if ($total_size > $maxfoldersize) {
print"You have exceded your limit of $maxfoldersize KB for the directory 
$email_address \n";
}

#! End of Folder Check