how about
parent.pl

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

child.pl

#!perl

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