#!/usr/bin/perl
open(BOTH, "|./echo|") or die "error in open: $!";
while(<>){
        print ".";
        print BOTH $_;
        print <BOTH>;
}
close(BOTH) or die "error in close: $!";