Select Code to Download

#!/usr/bin/perl
use strict; use warnings;

...
    my $target = dir($dest, $path->basename);
    dircopy $path, $target or die "Error copying $path: $!";
}

for my $path (dir($source)->children) {
    next if $path =~ /^\./;     # exclude hidden files and directories
...
    my $target = dir($dest, $path->basename);
    dircopy $path, $target or die "Error copying $path: $!";
}