Two items to add to the advice above:

1. The traditional (pre our) way to declare a package global is

  use vars qw($dbh);
[download]

2. You don't need to require DBD::mysql, as that gets done automagically via connect()