while(1)
{
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
	if($sec > 1)
	{
		sleep(60-$sec);
	}
	else
	{
		print "Event @ $sec\n";
		sleep(30);
	}
	
}