sub DB_xxx
   {
    my ($dbUser, $dbPass, $db, $autoCommit) = @_;
    my $dbh;

    # logon to DB
    unless( $dbh = DBI->connect('dbi:Oracle:' . ($$db || ''), $$dbUser, $$dbPass,
                                {AutoCommit => $$autoCommit}) )
      {

      croak "Error connecting to database $DBI::errstr \n";

      }
                 
    return $dbh;

   }

##</code><code>##

use abc qw (DB_xxx);

my $dbh;
my $stat1 = system ("gzip -t xyz.gz");
print "The stat checking:$stat1\n";

my $userid = xxx;
my $passwd = xxx;
my $database = xyz;
my $autocommit = 0;

$dbh=DB_xxx(\$userid, \$passwd, \$database, \$autocommit);

my $stat2 = system ("gzip -t xyz.gz");
print "The stat checking:$stat2\n";