#!/usr/bin/env perl
# Core Modules
use strict;
use warnings;
use utf8;
use open ':encoding(UTF-8)';
use open ':std';

# CPAN Modules
use DBI;

# Options
my $host     = 'localhost';
my $database = 'test';
my $user     = 'root';
my $passwd   = '';
my $options  = { RaiseError => 1, AutoCommit => 1, mysql_enable_utf8 => 1 };
my $dsn      = "dbi:mysql:database=$database";

# connect to database
my $dbh = DBI->connect($dsn, $user, $passwd, $options);

# insert statement
my $insert_sql = q{
    INSERT INTO data SET
    `key`   = ?,
    `value` = ?
};
my $insert = $dbh->prepare($insert_sql);

# read all statement
my $select_sql = q{
    SELECT `id`, `key`, `value`
    FROM   data
};
my $select = $dbh->prepare($select_sql);


# input some data
$insert->execute('näme',  'dävid');
$insert->execute('wörld', 'föö');
$insert->execute('möp',   'müps');

# print all inserted
$select->execute();
while ( my $data = $select->fetchrow_arrayref() ) {
    printf "id: %d key: %s value: %s\n", @$data;
}