my $size = -s $file;