#!/usr/bin/perl

use strict;
use warnings;

$| = 1;

use File::Find;
use File::Spec;

# Verzeichnis von Kommandozeile holen
my $verzeichnis = shift(@ARGV) || '.'; 

# Array für die gefundenen Dateien
my @dateien; 

my $id = 0;
my $parent;
my %ids;

sub wanted { 
  if ( $_ ne '..' ) {
        $ids{ $File::Find::name } = $id;
        $parent = $File::Find::dir;
        push @dateien,{ 
                id => $id++, 
                fullname => $File::Find::name, 
                name => $_, 
                parent => $parent, 
                parentid => $ids{ $parent },
                stat => [ (stat($File::Find::name))[8,9,10] ]
        };
  }
}
# Suche nach Dateien starten
find(\&wanted, File::Spec->rel2abs($verzeichnis) ); 

for my $datei (@dateien) {
  print 
        "ID:",$datei->{id},
        "\tPARENT:",$datei->{parent},
        "\tPARENTID:",$datei->{parentid},
        "\tNAME:",$datei->{name},  
        "\tFULLNAME:",$datei->{fullname},  
        "\tSTAT:",join " ",@{$datei->{stat}},  
        "\n";
}