Select Code to Download

my $o=new MyClass;
my $dbh=$o->opendb;
...
warn $dbh; # the same as the previous line
undef $o;
exit;

sub opendb {
   my $self=shift;
...
   $self->{_dbh}->{AutoCommit}=0;   # Lets run transactional
   return $self->{_dbh};
   }