read $f, my $buf, -s $f or confess ;