Select Code to Download

sub get_time_stamp() {
   my @tan=Today_and_Now();
...
   return $stamp;
}

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