Here's one way to use it:

use strict;
use warnings;

my $dir = './';

my @nonZeroLengthFiles = grep -s, <$dir*>;
print "$_\n" for @nonZeroLengthFiles;
[download]

This will print a list of all zero-length files in $dir.