João, <br><br>Você sabe que utilizar a função &quot;open&quot; desta forma é uma prática ruim, um bom exemplo seria:<br><br>&lt;code&gt;<br>open( my $FH, q{&lt;}, q{/var/log/maillog} )<br>    or die $!;<br>while ( my $line = &lt;$FH&gt; } {<br>
    print $line, qq{\n};<br>}<br>close( $FH );<br>&lt;/code&gt;<br><br>um abraço,<br><br>-- <br>Otávio Fernandes &lt;otaviof at <a href="http://gmail.com">gmail.com</a>&gt;<br><a href="http://otaviof.blogspot.com/">http://otaviof.blogspot.com/</a><br>