my($day, $month, $year)=(localtime)[3,4,5];
print "$day\-".$month+1."-".$year+1900."\n";