package SomeDatabaseStuff; sub my_funny_sql{ my ($dbh) = @_; $dbh->do('my great query'); }