http://www.perlmonks.org?node_id=349637


in reply to Re: Re: Re: Streaming to Handles
in thread Streaming to Handles

...Which isn't as hard as it sounds. Something like: 

my $f = List->new;
my $pid = open(FROM_LIST,"-");
if (!defined($pid)) { die "fork error: $!\n"; }
elsif (!$pid)
{
  # Child
  $f->stream_to(\*STDOUT);
  $f->look_in('c:/');
  $f->list;
  exit(0);
}

# Parent
while (<FROM_LIST>)
{
  print "$_\n";
}

[download]
should do the trick.

In Section Seekers of Perl Wisdom