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