use Win32::OLE;

  my $wsh = new Win32::OLE 'WScript.Shell';

  my $desktop_path = $wsh->SpecialFolders('Desktop');