my($var1 ,$var2 ,$var3 ,$var4 ,$var5) = split (/ /, scalar (localtime(time - 86400)));
	my $dateformat = "$var2$var3$var5";