open (my $inputFH, "<", $filename)
    or die "cannot open input file: $!";