open(my $fh, ...);

read($fh, my $buf='', ...);