Select Code to Download

opendir (DIR, ".") or die "Cannot open the current directory: $!";
my @files = grep {$_ ne '.' and $_ ne '..'} readdir DIR;
...
        }
    }
}