sub second_thursday {
	my ($dow, $dom) = (split " ", scalar localtime)[0,2];
	($dow eq "Thu" && $dom > 7 && $dom < 16 ) 
                ? 1 : 0;
}