Select Code to Download

use warnings;
use strict;

opendir my $d, "."; 
print "$_ \n" for readdir $d;

.
..
...
1186518.pl
1189436.pl
... omitted for brevity