🚀 go-pugleaf

Mam kłopot z dziedziczeniem metod obiektów (właściwie konkretnie 
interfac'e DBI, który chciałbym opakować w dodatkowy moduł).
Mam mianowicie programik :
----------------------------------------------------------------------
package DBR;

use DBI ();
@ISA = qw( DBI );

sub connect {
  my ($class,$DBDriver,$DBName,$DBUser,$DBPasswd) = @_;
  my $self  = {};
  $self = DBI->connect("$DBDriver:$DBName",$DBUser,$DBPasswd);
  warn "Błąd połącznia z $DBName\n" unless $self;
  bless $self, $class if $self;
  $self;
}

package main;

my $dbh = DBR->connect("dbi:Pg","xr","","");
$dbh->disconnect;
----------------------------------------------------------------------

Po odpaleniu wyskakuje oczywiście błąd :
Can't locate auto/DBR/disconnect.al in @INC (@INC contains:
/usr/local/lib/perl5
/PA-RISC1.1/5.00403 /usr/local/lib/perl5
/usr/local/lib/perl5/site_perl/PA-RISC1
.1 /usr/local/lib/perl5/site_perl .) at DBR.pl line 18

Co robię nie tak, że metody z DBI nie są widoczne (próbowałem używać
innych metod (niż disconnect) lecz również bez powodzenia) ?

Pozdrawiam i dziekuję z góry za wszelkie porady,

                              Waldek Grudzień

    ///////////////////////////////////////////
   //  http://www.uhc.lublin.pl/~waldekg/   //
  //   Lublin/Lubartów, Poland             //
  \\   University Health Care              \\
   \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\