Select Code to Download

  package MyClass;
  sub new {
...
    my $self = shift;
    $self->{socket}->close;
  }

  my $dbh = DBI->connect(...);
  END { $dbh = undef }