$ perl -le 'open my $fh, ">", "/proc/" . getppid . "/fd/1" or die $!;print $fh "<Nelson>Ha ha!</Nelson>"' > /dev/null 2> /dev/null
<Nelson>Ha ha!</Nelson>