Select Code to Download

foreach my $name (readdir DIR) {
        next if /^\./;

sub process_file {
    my $file = @_;

open (FILE, $file) or die "Could not open file: $!";