Select Code to Download

find( \&search_all_folder, $path );

...
    return if $_ eq '.' or $_ eq '..';
    read_files($_) if (-f);
}

sub read_files {
    my ($filename) = @_;
...
        print $_, $/;
    }
}