my @rootk = qw(HKLM HKCU HKU HKCR);
foreach my $root ( @rootk ) {
        my $ile = $root.'.reg';
        system qq(reg export $root $file);
}