Select Code to Download

use strict;
use warnings;
...

1;
# end

#!/usr/bin/perl5

...
{
        print "$map\n";
}

use List::Util qw( apply );

...
               grep  { /\.bsp\z/ }
               readdir($maps_dh);
}