use strict;
use warnings;

$|++;

use Some::Module 'process_stuff';

print '.' while process_stuff();

##</code><code>##

print "printing dots with buffering\n";
select undef, undef, undef, 0.25 or print '.'
  for 1 .. 10;
print "\nflush forced\n";

$|++;
print "printing dots without buffering\n";
select undef, undef, undef, 0.25 or print '.'
  for 1 .. 10;
print "\nflush forced\n";