print "Type something...\n";

local $SIG{ALRM} = sub { print "Sorry, timed out.\n"; exit; };
alarm(5);

while(<>) {
    print "Thanks, please type again...\n";
    alarm(5);
}