#!/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).

##</code><code>##

#!/usr/bin/perl

while ($in=<STDIN>) {                # Read from <STDIN> until <EOF>
        chomp $in;                   # Remove <NL>
        print "By Kiddy.pl: $in\n";   # Print out what we read
}