sub get_date{
  my $tm = shift || time;
  my @lt = localtime($tm);
  return (sprintf "%02d.%02d.%04d", $lt[3], $lt[4] + 1, $lt[5] + 1900);
}# end of subroutine