#!/usr/bin/perl

$i=0;
open SESAME,"|./Kiddy.pl";      # Open up the pipe

while ( $i++<10) {
        print SESAME "Testing IPC with pipes. Line $i.\n";      # Print to pipe
}

close SESAME;    # This (or the termination of the program)
                 # closes the pipe. The other side recieves this
                 # as an EOF (End OF File).