#!/usr/bin/perl

use strict;
use Data::Dumper;
use File::Find;
use File::System;

my $root = File::System->new( "Real", root => '/etc' );

my %files = map {
    my $file = $_;
    my %attrs = map { $_ => $file->get_property($_); } ( $_->properties() );
    $file => \%attrs;
} $root->find( sub { 1 }, () );

print Dumper \%files;