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