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

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