my $Reg;
use Win32::TieRegistry( TiedRef => \$Reg, Delimiter => "/", ArrayValues => 1 );
$Reg->{"CUser/Control Panel/Desktop//DragHeight"}= 10;
$Reg->{"CUser/Control Panel/Desktop//DragWidth"}= 10;
$Reg->{"CUser/Control Panel/Mouse//DoubleClickHeight"}= 10;
$Reg->{"CUser/Control Panel/Mouse//DoubleClickWidth"}= 10;