I've changed my connect string and put the table in the same directory as my script as follows.

my $dbh = DBI->connect("dbi:XBase:/") or die $DBI::errstr;

Here's the trace output. 

    DBI 1.14-nothread dispatch trace level set to 3
    Note: perl is running without the recommended perl -w option
    -> DBI->connect(dbi:XBase:/, , ****)
    -> DBI->install_driver(XBase) for perl=5.006 pid=1444 ruid=0 euid=0
       install_driver: DBD::XBase loaded (version 0.147)
    New DBI::dr (for DBD::XBase::dr, parent=, id=)
    dbih_setup_handle(DBI::dr=HASH(0x2dbd764)=>DBI::dr=HASH(0x4ec35a8), DBD::XBase::dr, 0,
 Null!)
    dbih_make_com(Null!, DBD::XBase::dr, 172)
    <- install_driver= DBI::dr=HASH(0x2dbd764)
    -> default_user in DBD::_::dr for DBD::XBase::dr (DBI::dr=HASH(0x2dbd764)~0x4ec35a8 un
def undef HASH(0x1a751c8))
    <- default_user= ( undef undef ) 2 items at DBI.pm line 405.
    -> connect for DBD::XBase::dr (DBI::dr=HASH(0x2dbd764)~0x4ec35a8 '/' undef **** HASH(0
x1a751c8))
    New DBI::db (for DBD::XBase::db, parent=DBI::dr=HASH(0x4ec35a8), id=)
    dbih_setup_handle(DBI::db=HASH(0x4ec356c)=>DBI::db=HASH(0x4ec3584), DBD::XBase::db, 2d
c0b78, Null!)
    dbih_make_com(DBI::dr=HASH(0x4ec35a8), DBD::XBase::db, 172)
    <- connect= DBI::db=HASH(0x4ec356c) at DBI.pm line 408.
    -> STORE for DBD::XBase::db (DBI::db=HASH(0x4ec3584)~INNER 'PrintError' 1)
    STORE DBI::db=HASH(0x4ec3584) 'PrintError' => 1
    <- STORE= 1 at DBI.pm line 433.
    -> STORE for DBD::XBase::db (DBI::db=HASH(0x4ec3584)~INNER 'AutoCommit' 1)
    <- STORE= 1 at DBI.pm line 433.
    <- connect= DBI::db=HASH(0x4ec356c)
    -> prepare for DBD::XBase::db (DBI::db=HASH(0x4ec356c)~0x4ec3584 'select custnum FROM
cms where order = 1002')
    New DBI::st (for DBD::XBase::st, parent=DBI::db=HASH(0x4ec3584), id=)
    dbih_setup_handle(DBI::st=HASH(0x4ec353c)=>DBI::st=HASH(0x4ede9e8), DBD::XBase::st, 4e
c35d8, Null!)
    dbih_make_com(DBI::db=HASH(0x4ec3584), DBD::XBase::st, 172)
    <- prepare= DBI::st=HASH(0x4ec353c) at smike2.pl line 95.
    -> execute for DBD::XBase::st (DBI::st=HASH(0x4ec353c)~0x4ede9e8)
Can't locate object method "new" via package "XBase" at C:/Perl/lib/DBD/XBase.pm line 337.

    <> DESTROY ignored for outer handle DBI::db=HASH(0x4ec356c) (inner DBI::db=HASH(0x4ec3
584))
    <> DESTROY ignored for outer handle DBI::st=HASH(0x4ec353c) (inner DBI::st=HASH(0x4ede
9e8))
    -> DESTROY for DBD::XBase::st (DBI::st=HASH(0x4ede9e8)~INNER)
    <- DESTROY= undef at unknown location!
    -> DESTROY for DBD::XBase::db (DBI::db=HASH(0x4ec3584)~INNER)
    <- DESTROY= undef at unknown location!
    -- DBI::END
    -> disconnect_all for DBD::XBase::dr (DBI::dr=HASH(0x2dbd764)~0x4ec35a8)
    <- disconnect_all= 1 at DBI.pm line 450.
    -> DESTROY in DBD::_::common for DBD::XBase::dr (DBI::dr=HASH(0x4ec35a8)~INNER)
    <- DESTROY= undef during global destruction.
    <> DESTROY for DBI::dr=HASH(0x2dbd764) ignored (inner handle gone)
Comment on Re: Re: Re: Re: Seemingly Internal DBD-XBase Error