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";