my $length = stat($filename)[7];