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";
}