my $bytecount = (stat $file)[7];