The Code

  use Data::Phrasebook;

  my $dbh = _connect_to_database();
  my $d = Data::Phrasebook->new(
              class  => 'SQL',
              dbh    => $dbh,
              loader => 'Ini',
              file   => 'phrases.ini',
              dict   => 'ADMIN'
  );