use Win32::TieRegistry;
$REMOTE= $Registry->Connect( '127.0.0.1','LMachine',{Delimiter=>"\\"} ) or die;
my $key_to_save="SOFTWARE\\";
$success=$REMOTE->{$key_to_save}->AllowSave( 1 );
if ($success){
$REMOTE->{$key_to_save}->RegSaveKey( "c:\\sioln.reg", [] ) or die $^E;
}else{print $^E;}