open W, ">", $outfile or die "Could not open $outfile for writing:$!\n";