Select Code to Download

open(IN,  $sqlfile)    || die "cannot open $sqlfile for input: $!";
open(OUT, ">$outfile") || die "cannot open $outfile for output: $!";

open(IN, '<:encoding(ASCII)', $sqlfile) or die "cannot open $sqlfile f
+or input: $!";
open(OUT, '>:encoding(ASCII)', $outfile or die "cannot open file $outf
+ile for writing: $!";