my $FH_text_W = $main::FH_text_W;