my $MegLimit=10*1024;
while (my ($User,$HomeDir)=(getpwent)[0,-2])
{
 next if $ignore{$User};
 my $CurrentUsage=(split /\s+/,`du -s -k $HomeDir`)[0];
 next unless $CurrentUsage;
 print "$User uses to much space: $CurrentUsage Kb\n" if ($CurrentUsage>$MegLimit);
};