sub wait_for_files {
   my $files = shift;

   my @not_changed_yet = keys %$files;
   while (@not_changed_yet) {
     @not_changed_yet = grep { ! -e } @not_changed_yet;
     sleep(1) if @not_changed_yet;
   } 
}