Select Code to Download

#!/usr/bin/perl
use strict;
...
foreach my $entry (File::Spec->no_upwards(@files)) {
  print_directory($entry) if -d $entry;
}