$reader->open ("/path/to/file.txt");

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