you can use this:

$utf8 = Encode::decode(utf8 => $utf8) unless Encode::is_utf8($utf8);
[download]

or if you just loose the utf8 flag and you know it is utf8 just do

Encode::_utf8_on($utf8);
[download]

or use DBD::Pg which already handle utf8 data for you.