несколько методов do в DBI

[gcc]

есть код:

(середина класса, все остальное работает)

Код: Выделить всё

    my $dbh = DBI->connect("DBI:$self->{'se'}->{'db_type'}:database=$self->{'se'}->{'db_name'};
          host=$self->{'se'}->{'db_host'}",$self->{'se'}->{'db_user'},$self->{'se'}->{'db_pass'},
      { RaiseError => 1 }) || die $DBI::errstr;

          $dbh->do(qq{INSERT INTO table0
              (a,b)
              VALUES (?,NOW())},
                         undef, $dd->{'a'});
                           }

           $dbh->do(qq{DELETE FROM table1
                         WHERE a = ?},
                         undef, $dd->{'a'});           }

           $dbh->do(qq{DELETE FROM dtable2
                         WHERE a = ?},
                         undef, $dd->{a});
                           }

при выполнении второго по счету $dbh use Strict пишет: [code=perl]
Global symbol "$dbh" requires explicit
[code]

есть поставить

Код: Выделить всё

my $dbh

то не определо $dd

что надо делать?

как всегда проблема маленькая, но определить не понятно каким образом надо чтобы решить...

[NickLion]

А что закрывает "}" после первого "$dbh->do(...);" ?