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