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