Select Code to Download

sub DB_xxx
   {
...
    return $dbh;

   }

use abc qw (DB_xxx);

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