use strict;
use warnings;

use Win32::TieRegistry;

$Registry->Delimiter("/");

my $swKey= $Registry->{"LMachine/SOFTWARE/"} or die "cant open the keys $^E\n";

$swKey->{"dkanagar/"} = {"/Version" => "1.00"} or die "cant add the keys $^E\n" ;