Help for this page
open my $inFile, '>', $inpath or die "Failed to open $inpath: $!";
open my $inFile, '<', $inpath or die "Failed to open $inpath: $!";