use File::Find; 
use Fcntl qw( :mode ); 
   : 
   : 
  somewhere down south of here in a sub far, far 
  away... 
   : 
   : 
 
sub do_it { 
   find( sub { 
      my $filespec = $File::Find::name; 
      my $fstat    = stat( $filespec ); 
      unless ($fstat) { 
         $app->__verbose( "Filespec: $filespec (couldn't stat?)" ); 
         return; 
      } 
      return if S_ISDIR( $fstat->mode ); 
      $app->__verbose( 
         "Filespec: $filespec  "        . 
         "Size: ${\ $fstat->size }  "   . 
         "Blocks: ${\ $fstat->blocks }" 
      ); 
      unless ($fstat->size) { 
         $app->__verbose( "Purging: $filespec" ); 
         unlink( $filespec ) 
            unless $app->options->testOnly; 
      } 
   }, $app->options->sourcePath ); 
}

use File::stat;