open(FH, '>', $outfile) or die "can't open $outfile: $!";