SOS

- .... .. ... .-. .- -. -.- ... .--. .-. . - - -.-- .... .. --. .... --- -. - .... . .-.. .. ... - --- ..-. ..- ... . .-.. . ... ... ... -.-. .-. .. .--. - ... .. .----. ...- . .-- .-. .. - - . -. .-.-.- -.. --- -. .----. - .-- .- -. - - --- - .... .. -. -.- - --- --- -- ..- -.-. .... .- -... --- ..- - .-- .... .- - -- .. --. .... - -... . .... .. --. .... . .-. --- -. - .... . .-.. .. ... - -....- -....- -- -.-- -... --- ... ... -- .. --. .... - .-. . .- -.. - .... .. ... .- -. -.. .. .----. -.. .... .- ...- . ... --- -- . .----. ... .--. .-.. .- .. -. .. -. --. - --- -.. --- .-.-.- .-.-.- .-.-.-

#!/usr/bin/perl
##########################################################################
## Script Name    : morse.pl                                            ##
## Created        :                                                     ##
## Author         : John McDevitt                                       ##
## Function       : convert between morse and ascii                     ##
##                :                                                     ##
## Usage          : interactive -- run and follow prompts               ##
##                :                                                     ##
##                :                                                     ##
## Notes          :                                                     ##
##                :                                                     ##
## Update Log     :                                                     ##
##                :                                                     ##
##########################################################################
use strict;
use Convert::Morse qw(as_ascii as_morse is_morse);
print "enter text for conversion: ";
my $input=;
if (is_morse($input)) {
       print as_ascii($input),"\n";
} else {
       print as_morse($input),"\n";
}