# Remove all empty files in '$dir' and below.

my $dir = "/some/path"; system "find '$dir' -size 0c | xargs rm"; #### !#/bin/perl # To remove all 0 byte file in a folder my $dir = "/home/bob/mytemp"; system "find '$dir' -size 0c | xargs rm"; #### find . -type f -size 0 | xargs rm #### find /home/bob/mytemp -type f -size 0 -exec rm {} \;