$name = $Find::File::name;
print "$name, $size\n";