#!perl
# call child with normal output going to STDERR
print `child.pl 1>&2`;

##</code><code>##

#!perl

for (1..5) {
  print STDERR "Error $_\n";
  print STDOUT "Message $_\n";
}