And without a sub-class...

Simple, descriptive, and a little cluttered:

  #!/usr/bin/perl -w

  use strict;  
  use DBIx::DWIW;
  
  my $db = DBIx::DWIW->Connect(DB   => 'Chart'
                               User => 'Yahoo',
                               Pass => 'NotAOL',
                               Host => 'db.blah.yahoo.com') or die "$!";

  __END__

Still not bad.

You still get many of it's features, but they're whatever
defaults are in the code.