#!/usr/bin/perl 
#   Haiku
use strict;

my (@tention, $uddenly);
s eems to fade
while (s ilently a kid cries);