use Encode qw( decode );

$dbh->do("SET NAMES utf8");

my $sth = ...;
$sth->execute(decode('cp1252', $encoded));