$dbh = DBI->connect(...);
sub foo { 
  $dbh->do(...);
}
$compartment = new Safe;
$compartment->share('&foo');
$compartment->reval('&foo();');