sub current_time {
   ...
   return $formatted_time;
}

print current_time . "$message\n";