Select Code to Download

# In my script
my $dbh = DBI->connect();
...
}

1;

package Obj;

...
}

1;

###############
package Obj::Bar;
...
}

1;