Select Code to Download

use Win32::TieRegistry(Delimiter=>'/');
$| = 1;
...
&list_content($testkey);

print "You may want to delete HKEY_CURRENT_USER\\TEST now\n";

use Win32::TieRegistry(Delimiter=>'/');
$| = 1;
...


&check_content(@ARGV);