#!/usr/bin/perl
use strict;
use warnings;
use Smart::Comments '###';
use File::Find::Rule;

my $f = new File::Find::Rule->file()->empty();

my @files = $f->in($ENV{HOME}); # where to look
### @files

for my $abs_file( @files ) {
 unlink $abs_file or die("cant unlink $abs_file, $!");
}

# or use map
# map { unlink $_ } @files;