Скрип валиться с ошибкой при выполнений куска кода
my $sth=$dbh->do("select max(DogID) as maxID from Dogs where DogID<$DogID_Hi AND DogID>$DogID_Low");
my $row = $sth->fetchrow_hashref();
my $MaxDogID=$row->{\'maxID\'}+1;
Ошибка: Can\'t call method "fetchrow_hashref" without a package or object reference