#!/usr/bin/perl -w
use strict;
use Encode;

sub changeEncoding 
{
    my $stringToEncode = shift;
    my $EncodedString = Encode::encode("utf8", $stringToEncode);

    print "   $EncodedString  ";
    return $EncodedString;
}

sub getEncodedString
{
    my $encodedString = changeEncoding("\x{2345}");

    print $encodedString ;
}

getEncodedString();