Select Code to Download

package Stuff;
use base 'Class::DBI::mysql';

...
use Stuff ('dbi:mysql:dbname', 'gryphon', 'password');
my $item = Stuff::Item->retrieve(1);
print $item->name, "\n";

use Class::DBI::AutoLoader (
  dsn       => 'dbi:mysql:dbname',
  username  => 'gryphon',
...
);
my $item = Stuff::Item->retrieve(1);
print $item->name, "\n";