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


##</code><code>##

sub get_time_stamp() {
   sprintf '%d%02d%02d%02d%02d', (Today_and_Now())[0..4];
}