What book are you using?

If the book shows using do() to execute SELECT statements, then you need to get a new book. Consult the DBI documentation (via perldoc DBI) for an explanation.

You need to rework the code to look something like:

  my $sth = $dbh->prepare(qq{SELECT ....}) or die "...";
  $sth->execute() or die "...";
  while ( my @row = $sth->fetchrow_array() ) {
      ...
  }
[download]