FreeBSD 9.2-STABLE #2 r265059
Perl v5.16.3
Postgresql 9.1.13
DBI v1.631
DBD::Pg v3.0.0

##</code><code>##

LANG=bg_BG.CP1251
LC_CTYPE="bg_BG.CP1251"
LC_COLLATE="bg_BG.CP1251"
LC_TIME="bg_BG.CP1251"
LC_NUMERIC=C
LC_MONETARY="bg_BG.CP1251"
LC_MESSAGES="bg_BG.CP1251"
LC_ALL=
##</code><code>##

 Name           |  Owner  | Encoding |   Collate    |    Ctype     |  
----------------+---------+----------+--------------+--------------+
 database_name  | yavor   | UTF8     | C            | C            | 

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;
use DBI;

#connection settings
my $s_db_name = 'database_name';
my $s_db_user = 'user';
my $s_db_auth = 'pass';

#hash ref for data fetching
my $href_row = {};

#connection with transaction
my $oref_dbh = DBI->connect('dbi:Pg:dbname=' . $s_db_name, $s_db_user, $s_db_auth, {AutoCommit => 0, RaiseError => 1});

#getting the default client encoding
my $oref_sth = $oref_dbh->prepare("SHOW client_encoding;");
$oref_sth->execute;
$href_row = $oref_sth->fetchrow_hashref();
print "\n Default Client Encoding: " . Dumper($href_row);    #UTF8

#setting client encoding to be windows-1251
$oref_sth = $oref_dbh->prepare("SET client_encoding = 'WIN1251';");
$oref_sth->execute;

#getting the current client encoding
$oref_sth = $oref_dbh->prepare("SHOW client_encoding;");
$oref_sth->execute;
$href_row = $oref_sth->fetchrow_hashref();
print "\n Current Client Encoding: " . Dumper($href_row);    #WIN1251

#preparing the SELECT query
$oref_sth = $oref_dbh->prepare("
SELECT 
	id, 
	name_en, 
	host, 
	descr_bg, 
	descr_en 
FROM 
	application;");

#executing it
$oref_sth->execute;

#fetching the data
$href_row = $oref_sth->fetchall_hashref('id');

#rollback the current transaction
$oref_dbh->rollback();

#dumping the fetched data using Data::Dumper
print "\n Data: " . Dumper($href_row);

##</code><code>##

 Default Client Encoding: $VAR1 = {
          'client_encoding' => 'UTF8'
        };

 Current Client Encoding: $VAR1 = {
          'client_encoding' => 'WIN1251'
        };
Malformed UTF-8 character (unexpected non-continuation byte 0xee, immediately after start byte 0xd1) in subroutine entry at /usr/local/lib/perl5/5.16/mach/Data/Dumper.pm line 205.
...
Malformed UTF-8 character (1 byte, need 4, after start byte 0xf2) in subroutine entry at /usr/local/lib/perl5/5.16/mach/Data/Dumper.pm line 205.

...

 Data: $VAR1 = {
          '<proper ouput>' => {
                 'descr_en' => '',
                 'descr_bg' => '<proper output in the console in cyrrillic>',
                 'id' => <proper output>,
                 'name_en' => '<proper output>',
                 'host' => '<proper output>'
               },