Thanks everyone for your help. The below code works:

$User=Win32::OLE->GetObject("WinNT://Domain/$user", "user");
        $User->{HomeDirectory}="$homedir";
        $user->SetInfo;
[download]

Thanks again.