my $user = ...;
my $home = (getpwnam($user))[7];
system("du", $home); # etc.