Select Code to Download

push(@sourcefiles, $_) if -f and /$datafile/i;

open(my $fh, '<', $File::Find::name) or die "Can't open $File::Find::n
+ame: $!";
my $source = do { local $/; <$fh> };
close $fh;