close IN  or warn "Error closing input $!\n";
close OUT or warn "Error closing output $!\n";