Select Code to Download

# How big is it?
my $fsize = (stat($_))[7]; 
push @sfiles, $fsize;
print "$fsize\n";

foreach my $p (@allpathlisting) #Foreach line (path found) $p in the a
+rray @allpathlisting
...
         print LIST "$s\n";
     }
    }