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