Select Code to Download

sub make_report1 {

...
  return (1);

}

package your_package;

...
    }
}

$your_package::DBH = undef;

...
    $your_package::DBH = DBI->connect...
    return $your_package::DBH;
}