my ($day,$month,$year)  = (localtime)[3..5];