or download this
use Win32::TieRegistry;
$REMOTE= $Registry->Connect( '127.0.0.1','LMachine',{Delimiter=>"\\"}
+) or die;
my $key_to_delete="SYSTEM\\RAdmin\\";
$REMOTE->{$key_to_delete}->AllowSave( 1 );
$REMOTE->{$key_to_delete}->RegSaveKey( "C:/test.reg", [] ) or die;