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.

14.3. SELECT using Class::DBI

Example 14-2. examples/cdbi/

use strict;
use warnings;

use MyUsers;

my @users = MyUsers->search(fname => 'Morgo');
foreach my $user (@users) {
	print $user->email,"\n";

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