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

##</code><code>##

use File::stat;
my $length = stat($filename)->size;