open my $inFile, '>', $inpath or die "Failed to open $inpath: $!";

##</code><code>##

open my $inFile, '<', $inpath or die "Failed to open $inpath: $!";