sub prefix_print {
  # Put $prefix in front
  my $outstr=join('',$prefix,@_);
  # If something follows a \n, insert $prefix
  $outstr =~ s/(\n)(?=.)/$1.$prefix/egs;
  print $outstr;
}