my $size = ( -s $file );