print length do { local $/; local @ARGV = ( $file ); <> }, "\n";