Returns the current date in yyyymmdd format

CurrentDate.pl

sub current_date{
	my ($d,$m,$y) = (localtime)[3,4,5];
	
	# Normalise dates
	($m+=1,$y+=1900);
	
	# Check prefix with zero
	$m = "0$m" if ($m < 10);
	$d = "0$d" if ($d < 10); 
		
	return "$y$m$d";
}