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