<div>Bom dia, pessoal. Estou dando os primeiros passos no MySQL e já começaram os problemas.. Tenho uma BD de teste e agora, estou tentando fazer uma conexão utilizando o DBD::mysql, mas quando eu executo o código abaixo, é exibida essa mensagem de erro:</div>

<div>&nbsp;</div>
<div>Can&#39;t connect to data source mysql:database=teste;host=localhost;port=3306, no database driver specified and DBI_DSN env var not set at dbi.pl line 15<br>&nbsp;</div>
<div>O que pode estar ocorrendo? Vlw..</div>
<div>&nbsp;</div>
<div>-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------<br>#!/usr/bin/perl</div>

<div>
<p>use warnings;<br>use strict;<br>use DBI;</p>
<p>my $database = &#39;teste&#39;;<br>my $hostname = &#39;localhost&#39;;<br>my $port&nbsp;&nbsp;&nbsp;&nbsp; = &#39;3306&#39;;<br>my $user&nbsp;&nbsp;&nbsp;&nbsp; = &#39;rafael&#39;;<br>my $password = &#39;senha&#39;;</p>
<p>my $dsn = &quot;DBI::mysql:database=$database;host=$hostname;port=$port&quot;;<br>my $dbh = DBI-&gt;connect($dsn, $user, $password, {RaiseError =&gt; 1});</p></div>