I've noticed that you have a blank space in your perl code:

So, where you have:

$User=Win32::OLE-> GetObject("WinNT://wsi/$username", "user");
[download]

It should be:

$User=Win32::OLE->GetObject("WinNT://wsi/$username", "user");
[download]

Just my 2 cents.