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

to

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