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