Select Code to Download

my $dbh = DBI->connect($dsn,$user,$pass,{RaiseError => 0, AutoCommit =
+> 1,
        $driver eq 'mysql' ? (mysql_enable_utf8 => 1) : (),
    });

sub log {
    my $self = shift;
...
    }
    return $self->{ _log };
}