open(my $in_file,'<', ...) or die "Can not open ... for writing: $!.\n";

<nit>
$in_file is being opened for reading ('<'), not writing.
</nit>