sub changedate {
	
	my $year=0;
	my $month=0;
	my $day=0;
	($year, $month, $day) = split(/-/, $_, 3);
	return $day."-".$month."-".$year;
}