sub get_date{
    my ($day,$month,$year) = (localtime time)[3..5];
    return sprintf "%02d.%02d.%04d", $day, $month+1, $year+1900;
}