Select Code to Download

use strict;
use warnings;
...
}

print "$_ - $ext{$_}\n" for keys %ext;

use strict;
use warnings;
...
++$ext{$1} for map { -f && /\.([^.]+)$/ ? $1 : () } readdir $dh;

print "$_ - $ext{$_}\n" for keys %ext;