You might want to take a look at the VU-meter example script for Audio::PortAudio.

It samples the average audio input power at specified intervals and displays it as an animated ASCII bar. Should be relatively easy to adapt, I guess.

All you need to do then is figure out how to get the morse patterns from that input :-)