#!/usr/bin/perl

use Benchmark;
use strict;
use FileHandle;

timethese(0, { 'linebyline' => \&linebyline, 
               'chunk' => \&chunk ,
               'BufferedFileHandle' => \&BufferedFileHandle });

sub linebyline {
  open(FILE, "file");
  while(<FILE>) { }
  close(FILE);
}

sub chunk {
  my($buf, $leftover, @lines);
  open(FILE, "file");
  while(read FILE, $buf, 64*1024) {
    $buf = $leftover.$buf;
    @lines = split(/\n/, $buf);
    $leftover = ($buf !~ /\n$/) ? pop @lines : "";
    foreach (@lines) { }
 }
 close(FILE);
}

sub BufferedFileHandle{
  my $fh=new FileHandle;
  my $buffer_var;
  $fh->open("file");
  $fh->setvbuf($buffer_var, _IOLBF, 64*1024);
  while(<$fh>) { }
  close(FILE);
}