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.
Example 13-1. examples/dbi/connect.pl
#!/usr/bin/perl use strict; use warnings; use DBI; my $dbfile = "sample.db"; my $dsn = "dbi:SQLite:dbname=$dbfile"; my $dbh = DBI->connect($dsn);
Connecting to other databases: