Select Code to Download

find /whatever/path/ -size 0 -exec rm {} \;

Purge( '/whatever/path' );
sub Purge {
...
    }
    close $dh or die "$!, for $dir";
}