use crsTools4 qq{$sth}; # import an EXPORT_OK var #### our @EXPORT_OK = qw($dbh $sth); our ($dbh, $sth); # declare vars to be EXPORT_OKed