my $fh = $pids{$key}{'fh'};
  while (<$fh>){print $_}