You are looking at a very old, but free version of the course. If you are interesed the most recent version, check it out on the Perl Maven site.

13.4. SELECT with one result

Example 13-2. examples/dbi/select.pl

#!/usr/bin/perl
use strict;
use warnings;

use DBI;

my $dbfile = "sample.db";

my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile");


my $sth = $dbh->prepare('SELECT COUNT(*) FROM users');
$sth->execute;

my ($count) = $sth->fetchrow_array();

print "There are $count number of rows.\n";

If you are interested in on-site trainings by the author, please contact me directly.