#!/usr/bin/perl
use strict;
use IO::Handle;
pipe(READ,WRITE) or die;
READ->autoflush(1); #just to be safe
WRITE->autoflush(1);
my $data=<DATA>;
print $data;
print WRITE $data;
*DATA=*READ;
my $data2=<DATA>;
print $data2;
__DATA__
TESTDATA