$SIG{ALRM} = sub {
    die "Game over!";
}
alarm(10);
sleep(20);