my $size = -s;