#!/usr/bin/perl --

use 5.010;
use strict;
use warnings;

use File::Find::Rule;

Main("/Volumes/Volume Name/");
#~ Main(@ARGV);

exit(0);

sub Main {
  my ($volume_name) = @_;

  my @dirs = File::Find::Rule->directory->maxdepth(1)->in($volume_name
+);

  for my $dir (@dirs) {
    say $dir;
    for my $item ( File::Find::Rule->in($dir) ) {
      say "****";
      say $item;
      say "****";
    }
  } ## end for my $dir (@dirs)
} ## end sub Main

__END__
[download]