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