that was a mistake. I removed the '$'. But still didnt work I tried something else

if ($Wmi) {
            my $Vars = $Wmi->Get('Win32_Environment');
            my $var = $Vars->Spawninstance_ ();
            #print $var;
            print $var ->{'CADMAP'};
            $var->put_();
            #print HLIST $Vars{"pc_os"};
            #foreach (keys %Vars) {
            #    print HLIST $Vars{$_} ."\n";
            #}
        }
[download]

Still no luck.