print $day,"\-",($month+1),"-",($year+1900),"\n"; # less expensive