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