#!/usr/bin/perl -w

use strict;

my $stuff;

{
        pipe(READ,WRITE);
        local *STDOUT=*WRITE;

        print "Into the pipe\n";

        local $/;

        $stuff = <READ>;
}

print "Pipe has: $stuff";