sub get_time_stamp() {
   my @tan=Today_and_Now();
   my $stamp= sprintf '%d%02d%02d%02d%02d', @tan[0..4];
   return $stamp;
}