<div>   open my $fh, &#39;&lt;&#39;, &quot;$ar&quot; or die &quot;Can&#39;t read file\n&quot;;</div><div>   while ( &lt;$fh&gt; ) {</div><div>       next if $. &lt;= 4;</div><div>       ...</div><div>   }</div><div>   close $fh;</div>

<div><br></div>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>
<br><br><div class="gmail_quote">Em 28 de abril de 2010 10:59, Nelson Ferraz <span dir="ltr">&lt;<a href="mailto:nferraz@gmail.com">nferraz@gmail.com</a>&gt;</span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

<div id=":qc8" class="ii gt">   open my $fh, &#39;&lt;&#39;, &quot;$ar&quot; or die &quot;Can&#39;t read file\n&quot;;<br>
    while ( &lt;$fh&gt; ) {<br>
        # ...<br>
    }<br>
    close $fh;</div></blockquote></div><br>