use Time::Piece;
  $t = Time::Piece->strptime('%T', $time_string);