or download this
#linux quoting
perl -MAudio::Beep -e 'for("--.. . -. - .- .-. .-"=~/./g){ /\./ ? beep
+(1000,100) : /\-/ ? beep(1000,200) : sleep 1}'
...
#double quoting
perl -MAudio::Beep -e "for('--.. . -. - .- .-. .-'=~/./g){ /\./ ? beep
+(1000,100) : /\-/ ? beep(1000,200) : sleep 1}"