package SUBS;
require 'SUBS.pm';
use strict;

my($dbh, $sth, $fault_no, @dbinfo, $base, $line);

$base = "/path/to/loginfile";

&connectdb();


##</code><code>##

package SUBS;
require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(
             &connectdb
            );

use strict;

#Open the Oracle database:

if (!defined(open(DBINFO, "$base/dbinfo"))) {
  die "Can't open dbinfo.\n";
}

while(defined($line = <DBINFO>)) {
  chomp($line);
  push @dbinfo, $line;
}
close(DBINFO);

$dbh = DBI->connect($dbinfo[0],$dbinfo[1],$dbinfo[2],$dbinfo[3],
                    { RaiseError => 1,
                      AutoCommit => 1}
                   );

}


##</code><code>##

Global symbol "$var" requires explicit package
name at SUBS.pm line ...