in reply to Challenge : use perl::polylingual
$\ = "\n"; print "y" while 1; [download]
If that isn't trivially useful, I don't know what is... what it's used for is to respond "y" to stupid prompts:
yes | someProgramThatAsksALotOfYesNoQuestions