my $dir = ((getpwnam($user))[7]);