Select Code to Download

            for (keys %filenames) {
                delete $filenames{$_} if $filename eq $_;
            }

               delete $filenames{$filename};

            if ( exists $filenames{$filename} ) {
                delete $filenames{$filename};
            }