open my $inFile, '<', $filename or die "Unable to open $filename: $!";