open my ($fh), '<', $file ...