my $x = do {
    open my $fh, '<', '/path/to/foo.file' or die $!
    <$fh>;
};