sub changedate {
    my $date = shift;
    $date =~ s/^(\d{4})-(\d{2})-(\d{2})$/$3-$2-$1/;
    return $date;
}