use strict ;
  use warnings ;

  sub STDERR () { *STDERR } ;

  p(STDERR, "---Hello world: '", STDERR, "'\n") ;

  print STDERR "+++STDERR: '", STDERR, "'\n" ;

  sub p { my ($H, @p) = @_ ; print $H "//[$H] ", @p ; } ;