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