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

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

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

&connectdb();