sub process_directory {
    my ($self, $dir) = @_;

    print "TESTING: dir is [$dir]\n";

    open my $dh, $dir or die "Could not open dir [$dir] for reading: $!\n";
    my @files = readdir $dh;

    print "FILES: @files\n";

    closedir $dh;
}