sub callback_readdir
{
    my $folder = shift;
    my $proc   = shift;

    die "Falsche Anzahl Parameter!" unless defined $folder and defined $proc;

    die "Folder muss Referenz sein!" unless ref $folder;