open my $inFile, '<', $filename or die "Couldn't open $filename: $!";