#!/usr/bin/perl

$| = 1;

$SIG{ALRM} = sub { print "alarm\n" };

alarm 6;
while(<STDIN>) {
  alarm 6;
  print;
}
