package Blog::DBI; use DBIx::DWIW; sub connect { my $conn = DBIx::DWIW->Connect( User => 'jzawodn', Pass => '******', DB => 'mt', Host => 'localhost', ) or die "$!"; } 1;