perl Time-Piece-MySQL