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