my $size = (-s, "$_");