Some possibilities:

• pass $dbh as a parameter
• Have a `setDBIhandle' routine that stashes the handle subs should use in a package variable
• wrap things up in a class and make the handle an instance variable
• just use $main::dbh and note the dependency (sometimes globals can make sense)