$today = &day($mon,$day,$year) ;