open (my $INPUT, $filename) or
    die ("Can't open '$filename' for reading: $!\n");