Select Code to Download

open (PIPE,"| read_three.pl") or die "Can't open pipe: $!";

to

open (PIPE,"| ./read_three.pl") or die "Can't open pipe: $!";

open (PIPE,"| perl read_three.pl") or die "Can't open pipe: $!";

C:\temp>perl write_ten.pl
Writing line 1
...
Writing line 9
Writing line 10
Wrote 3 lines of text