if (opendir (DIR, $path)) { while( my $dir = readdir( DIR ) ) { next if( ( "." eq $dir ) || ( ".." eq $dir ) ); if (-d "$path/$dir") { print "$dir\n"; print "$dir\n"; if (opendir (CUSTDIR, "$path/$dir")) { my $count = 0; while (my $file = readdir( CUSTDIR)) { next if (("." eq $file) || (".." eq $file)); $count++; if (eval { $callvals = XMLin("$path/$dir/$file") }) { # $calldetails{$callvals->{Server}} = "$callvals->{State} $callvals->{Agent_Class} $callvals->{Agent_Instance} $callvals->{Instance_Detail}"; print "$callvals->{Server} - $callvals->{State} - $callvals->{Agent_Class} - $callvals->{Agent_Instance} - $callvals->{Instance_Detail}\n"; } else { die "Cannot Read $path/$dir/$file: $@\n"; } } close (CUSTDIR); print "$count XML files\n"; } else { die "Cannot find path $path/$dir: $!\n"; } } } close(DIR); } else { die "Cannot find path $path: $!\n"; }