#! perl -w
use strict;

open STREAM, './receivetest |' or die $!;

while( my $line = <STREAM> ) {
    print $line;
}