sub get_CCYYMMDD{

	my $timecode = $_[0];
	
	my ($day, $month, $year)  = (localtime($timecode))[3..5];
	
	$year += 1900;
	$month++;
	$month = $month<10 ? "0".$month : $month;
	$day = $day<10 ? "0".$day : $day;
	
	my $today = $year.$month.$day;
	#print $today."\n";
        return $today;	
}