#!/usr/bin/perl

use Win32::Registry;

$HKEY_CURRENT_USER->Create("SOFTWARE\\Test", $new_key);

Win32::Registry::CopyKey("HKEY_CURRENT_USER\\SOFTWARE\\", $new_key);