Win32::TieRegistry problem

[OXx]

Hello I have a problem with this module.
My script does not work with all pcs .
In fact when I execute it on my computer I have no problem  but in an other
one I have this error:
*Can't call method "GetValue" on an undefined value*

An extract of my script:

        $Registry->Delimiter("/");
        $swKey=
$Registry->{"LMachine/Software/Microsoft/Windows/CurrentVersion/Uninstall/"};
       @ls= keys( %{$swKey} );
             $p ='0';
             %list_soft = ();
             foreach $entry (@ls )
             {
             $Key=
$Registry->{"LMachine/Software/Microsoft/Windows/CurrentVersion/Uninstall/$entry"};
             *$valueString= $Key->GetValue("DisplayName");*
             $valueString=~s/ //g;
             $list_soft{$valueString} = $p;
             }
Thanks for your help
Oxx