#!/usr/bin/perl -w

use strict;
use Storable qw(nfreeze thaw);
use DBI;
use DBD::Pg;

# database settings
my $db_name = 'unicode';
my $db_host = 'localhost';
my $db_user = 'elric';
my $db_pass = 'test01';
my $dbh = DBI->connect("dbi:Pg:dbname=$db_name;host=$db_host;",
		       "$db_user", "$db_pass");
my $test = { 'ahoj svete...',
	     [ 1,
	       23,
	       'ttt'
	     ],
	   };
my $sth = $dbh->prepare("insert into demo values (?, ?)");

$sth->execute('test', nfreeze($test));

$dbh->disconnect();

exit 0;