perl pm_gene_uninit.pl

##</code><code>##

#say qq(DEBUG: Line = "$line");

##</code><code>##

#my $file = "BSAC.pl";
...
#open my $in, "<", "$file";
#open my $out, ">", "output.txt";

##</code><code>##

say $out "Coordinate   No of Strains   AA Change";
...
while ( my $line = <$in> ) {
...
printf $out "%-12.12s %-15.15s %s\n",  $SNP, $count, $change;

##</code><code>##

say "Coordinate   No of Strains   AA Change";
...
while ( my $line = <DATA> ) {
...
printf "%-12.12s %-15.15s %s\n",  $SNP, $count, $change;