my $dbh; sub new { $dbh = @_; }