$OUTFH{$name} = $OUTFH{$name} || IO::File->new(">g:\\perl_scripts\\$name.log");
$FH           = $OUTFH{$name} or die $!;