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