#!/usr/bin/perl -w

use strict;

print "well, here we are!\n";
pipe(READ, WRITE);
my $original = select(WRITE);
print "and now we're here...\n";
close(WRITE);
select($original);
print "almost done...\n";
print while(<READ>);