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