my $size = -s $_;