while(1)
   { my %INFO = ();
     .... stuff-which-populates-%INFO ...
     my $dumped = Dumper(\%INFO);
     print $parent_fh ":MSG:${dumped}:DONE:\n";
     sleep 10;
   }