Select Code to Download

use warnings;
use strict;
...
closedir $dh or die "can't close directory: $!";

print $_, $/ for @result;