Select Code to Download

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