waveform generated with perl