while ( my $chunk = $reader->chunk("/path/to/file.txt") )
{
    print "$chunk\n****************\n";
}