Select Code to Download

 Event->idle(min=>$mint,max=>$maxt,
 cb=> [$sth,"method"],
 max_cb_tm=>$timeout,);

sub vicous {
#....
...
 };
#...
}

 alarm(10000);
 vicious();
 alarm(0);

sub vicious {
#...
...
alarm(10);
vicious();
alarm(0);