use Win32::TieRegistry;
my $SOURCE=$Registry->Connect( '127.0.0.1','LMachine',{Delimiter=>"\\"}) or die;
my $REMOTE=$Registry->Connect( 'bdc','LMachine',{Delimiter=>"\\"}) or die;
my $folder="SYSTEM\\RAdmin\\";
$REMOTE->{$folder}=$SOURCE->{$folder} or die;
or
$REMOTE->{$folder}=$SOURCE->{$folder}->Clone() or die;