Select Code to Download

use strict;
use warnings;
...
    print "$_ : ", $mode ? "file" : "directory", "\n"
}
closedir $dir;

use strict;
use warnings;
...

    print "$path is ", $mode ? "file" : "dir", "\n";
}