use ChunkReader;

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

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

while ( $reader->chunk )
{
    print "$_****************\n";
}