Select Code to Download

opendir my $d, $dir;
                                                                      
+          
...
        grep !/^\.{1,2}$/,readdir $d;
                                                                      
+          
unlink @f[-0,1] if @f > 20;