#!/usr/bin/perl 
use strict;
use Convert::Morse qw(as_ascii as_morse is_morsable);

print as_ascii('.... . .-.. .-.. ---  -- --- .-. ... .'),"\n"; # 'Hello Morse'
print as_morse('Perl?'),"\n";                # '.--. . .-. .-.. ..--..'
print "Yes!\n" if is_morsable('Hello Perl.'); # print "Yes!"