#!/usr/bin/perl -w

# This is t6

use strict;
use IPC::Open2;

open2(\*READ,\*WRITE,'/tmp/t6b')
  or die "Error running sort: $!\n";
print WRITE join("\n",5,2,8,7,9,1,3,6,4,0),"\n";
close(WRITE);
while (<READ>)
{
  print "$0 read $_";
}


#!/usr/bin/perl -w

# This is t6b

use strict;

use vars qw(@a);
while (<>)
{
  push(@a,$_);
}

# OK, now we've gotten EOF.
print sort @a;