`du ~user`;
system("du ~user");
system("du", "~user"); # doesn't work

##</code><code>##

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