Select Code to Download

#!/usr/bin/env perl -l

...
opendir(my $dh, $dir);

print $fh $_ while readdir $dh;

use open IO => qw{:encoding(UTF-8) :std};