diff --git a/script/korapxml2krill_dir b/script/korapxml2krill_dir
index fa589eb..1f8ec14 100644
--- a/script/korapxml2krill_dir
+++ b/script/korapxml2krill_dir
@@ -86,21 +86,29 @@
   $call .= ' -y ' . $pretty if $pretty;
   $call .= ' -a ' . $_ foreach @allow;
   $call .= ' -s ' . $_ foreach @skip;
-  print "Convert $file\n";
+  print $file;
   system($call);
+  print "\n";
 };
 
 
 my $it = Directory::Iterator->new($input);
+my @dirs;
 my $dir;
 while (1) {
 
     if (!$it->is_directory && ($dir = $it->get) && $dir =~ s{/data\.xml$}{}) {
-	write_file($dir);
+	push @dirs, $dir;
 	$it->prune;
     };
   last unless $it->next;
 };
 
+my $count = scalar @dirs;
+for (my $i = 0; $i < $count; $i++) {
+  print "Convert [$i/$count] ";
+  write_file($dirs[$i]);
+};
+
 
 __END__