Help for this page

Select Code to Download

Select or download this

use Win32::TieRegistry( Delimiter=>"#", ArrayValues=>0 );
  $pound= $Registry->Delimiter("/");
  $diskKey= $Registry->{"LMachine/System"}
    or  die "Can't read LMachine/System key: $^E\n";

Select or download this

use Win32::TieRegistry;

my $tip18= $Registry->{"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\"
               . 'Windows\\CurrentVersion\\Explorer\\Tips\\\\18'} or d
+ie "$^E\n";