#!/usr/bin/perl 
$base = "/home/"; 
opendir (DIRLIST, $base); 
@users = grep(!/^\.\.?$/, readdir(DIRLIST)); 
	foreach $user (@users) { 
	system("/usr/bin/du -hsm /home/$user"); }