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