Select Code to Download

opendir my $cwd_dh, '.'
    or die "Can't opendir: $!";
...
    # ...
}
closedir $cwd_dh;