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