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