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