my $count =0;
for (1.10){
warn "Writing line $_\n";
#!/usr/bin/perl
use strict;
$SIG{PIPE} = 'IGNORE';
open (PIPE,"| net2.pl") or die "Cannot open pipe:$!";
select PIPE ; $ |=1; select STDOUT;

my $count =0;
for (1.10){
warn "Writing line $_\n";
if (print PIPE "This is line number $_\n") {
$count ++;
}
else {
warn " An error occured during writing :$!";
last;
}
sleep 1;
}
close PIPE or die " Cannot close pipe : $!";
print "Wrote $count lines of text \n";
~

##</code><code>##

#!/usr/bin/perl
use strict;
for (1.3) {
last unless defined (my $line = <>);
warn " Read_three,got $line\n";
}