my $outfile = 'generic_bist_ctrl_defines.sv'; open my $fh, '>', $outfile or die "Can't open > $outfile: $!";