Help for this page

Select Code to Download


  1. or download this
    my $lines;
$lines++ while <FILE>;
  2. or download this
    seek FILE, 0, 0;
my $first = <FILE>;