if (-f $_) { if (-s _ == 0) { print $File::Find::name, "\n"; } }