#!/usr/bin/perl

# Script "noidle2.pl" copyright (c) 2001 Internet Technologies Solution Centre
# (http://www.itechsc.com). Distribution and use is is freely permitted
# provided the copyright notice and conditions remains intact. You use
# this script entirely at your own risk.

# This script has been written for and tested with Mortal Realms MUD
# (http://www.mortalrealms.com). Alterations may be required to make it
# work with other MUDs. This works even without "see what you type" turned
# on (config, a, f, x).

use IO::Handle;
STDOUT->autoflush(1);

$SIG{ALRM} = sub { alarm 120; printf "\n"; };
alarm 120;
while (<STDIN>) { }

exit 0;