open my $handle, '<', $file or ...