http://www.perlmonks.org?node_id=403302

Public Scratchpad

Download, Select Code To D/L

---

local($SIG{ALRM}) = \&Tick;
alarm(1);

sub Tick 
{
    # Do stuffs here
    alarm(1);
}
[download]