#! perl -slw
use strict;

open 'LOG', '>', 'rereg.log' or die $!;

while( glob '*.dll' ) {
	print LOG "unregister $_:", `regsvr32 -U $_`;
	print LOG "Register $_  :", `regsvr32 $_`;
}

close LOG;