libtie-cycle-sinewave-perl