open(F, "<", $filename)
    || die "can't open $filename: $!";