use Data::Dumper;
local $Data::Dumper::Useqq = 1;
$sth = $dbh->prepare('SELECT PRODUCT_ID FROM schema.products@dblink_to_testdb where (id= ?)');
$sth->execute($partnr);