#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $c = "ᎤࢣࣘဃလͶ᠓ᠴᡠᣲ";

my $dbh = DBI->connect(
        "DBI:mysql:testdb;host=localhost",
        "test", "test",
        {'RaiseError' => 1}
);

$dbh->do("insert into test (text) values ('$c')");