Select Code to Download

            chomp $_;

...
            if ($array[0] eq "") {
                shift (@array)
            }

            # Split the line by whitespace
            my @array = split;

            while (<@array>) {

            while (glob join $", @array) {

            foreach (@array) {