#!/usr/bin/perl -w
use strict;
use Symbol;

my $sym = gensym;
open($sym, "perl -e 'sleep(5); print qq!Piped output!;' |") or die $!;

my ($rin, $rout);
$rin = '';
vec($rin, fileno $sym, 1) = 1;
my $changed = select($rout = $rin, undef, undef, 0);
print "select()'ed\n";
if ($changed && vec($rout, fileno $sym, 1) == 1) {
	my $buf;
	sysread($sym, $buf, 4096);
	print "[$buf]";
} else {
	print "nothing yet";
}