open my($fh), "<", $filename or die "open $filename: $!$/";