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