use ChunkReader;

# create reader, threshold is optional (def. 2048)
my $reader = new ChunkReader (threshold=>1024);

# open file
$reader->open ("c:/test2.txt");

#iterate
while ( my $chunk = $reader->chunk )
{
    print "$chunk\n****************\n";
}