use strict;
use warnings;    
use Hangle qw/transformation/;
use Convert::Morse qw(as_morse);
my $key = "민영씨사랑해요";
print "Text  : $key\n";
$key = transformation($key);
print "Trans : $key\n";
print "Morse : ".as_morse($key),"\n";