use Time::Limit -quiet, '5';

$SIG{TERM} = sub { exit 0 };

while(1) {}