Select Code to Download

#!/usr/bin/perl

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

#!/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
}