#!/usr/local/bin/perl
use strict;
use warnings;
use DBI;
use TUNNEL_DB;

my $dbh= TUNNEL_DB->new();

my $sth = $dbh->prepare(
    'SELECT id,domain from domains')
    or die "prepare statement failed: $dbh->errstr()";

$sth->execute() or die "execution failed: $dbh->errstr()";

print $sth->rows . " rows found.\n";

while (my $ref = $sth->fetchrow_hashref()) {
    print "Found a row: id = $ref->{'id'}, fn = $ref->{'domain'}\n";
}

$sth->finish;

$dbh->disconnect;