I'm trying to read DATA in a parent and in a child process, but seem to be unable to achieve this.

Simply using <DATA> didn't work.

So I tried fdopen, but still just the parent seems to be able to read my DATA.

What am I doing wrong?

use IO::Handle;
use strict;
use warnings;

my $x= IO::Handle->new();
$x->fdopen(fileno(DATA), "r");

my $y= IO::Handle->new();
$y->fdopen(fileno(DATA), "r");

my $pid= fork();
die unless defined $pid;
if ($pid == 0) {
  print "Start c\n";
  while (<$x>) {
    print "c: $_"; sleep 1;
  }
  print "stop c\n";
}
else {
  print "Start p\n";
  while (<$y>) {
    print "p: $_"; sleep 1;
  }
  print "stop p\n";
}
__DATA__
a
b
c
d
e
[download]

Output is:

Start p
p: a
Start c
stop c
p: b
p: c
p: d
p: e
stop p
[download]

Update In an earlier version I mixed up parent and child. Fixed.