Select Code to Download

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

sub foo {
  my $dbh = DBI->connect(...); 
  $dbh->do(...);
  $dbh->disconnect();
}