#! /usr/bin/perl

read A_POEM, $stare, $blink and
sort <OUT>. "what it's all about";
{ think and think and think}
while ($you ne 'sick');
goto bed;