#!/usr/bin/perl

use utf8;
use open ":utf8";
use DBI;

$db = DBI->connect("dbi:mysql:test","root","") or die "Cannot connect";
$db->do("set names utf8");
$db->do("truncate t");

$h='Ångström';
$qry = "insert into t values ('$h')";
open F, ">/tmp/t";print F $qry; close F;

$db->do($qry);

$db->disconnect;