#!/usr/bin/perl

use warnings;
use strict;

use Benchmark;

timethese(100, {
        'line_by_line' => q{
                open(INFILE,'test.dat') or die "open: $!";
                while(<INFILE>){};
                close(INFILE);
        },
        'chunk' => q{
                $count = 0;
                open(INFILE,'test.dat') or die "open: $!";
                local $/=\1024000;
                while(<INFILE>) { $count += tr/\n// }
                close(INFILE);
        }
});