Well DSUtil.pm is just Perl code so you can go read it yourself and see what it does. But this

use Win32::TieRegisry ( Delimiter=>"/" );
    my ($key);
    if ($configUser || Win32::IsWin95()) {
        $key = 'CUser/Software/Microsoft/Windows/CurrentVersion/Explor
+er/Shell Folders//Programs';
    } else {
        $key = 'LMachine/SOFTWARE/Microsoft/Windows/CurrentVersion/Exp
+lorer/Shell Folders//Common Programs';
    }
    my $folderdir = $Registry->{$key};
[download]

works just fine as a replacement.

        - tye (but my friends call me "Tye")