http://www.perlmonks.org?node_id=200496


in reply to Getting file size

<sarcasim>
open(F,$filename) || die "Could not open file '$filename' : $!\n"; while (<F>) { $size += length($_); } close(F);
</sarcasim>
from the frivolous to the serious