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