# Note: This is buggy
sub prefix_print {
  # Turn arguments into a list of lines, and prepend
  # each with $prefix
  print(
    map { "$prefix$_" } 
        join('',@_) =~ m/(.*(?:\n|$))/g
  );
}