#! /usr/bin/perl -w

$SIG{ALRM} = \&ten_min_task;

alarm(600);
while (1) {
	# run in between task here
	#sleep 1; print "foo\n";
}

sub ten_min_task {
	alarm(600);
	# run this code every 10 minutes
	#print "bar\n";
}