Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
use Some::Module 'process_stuff';

print '.' while process_stuff();
  2. or download this
    print "printing dots with buffering\n";
select undef, undef, undef, 0.25 or print '.'
...
select undef, undef, undef, 0.25 or print '.'
  for 1 .. 10;
print "\nflush forced\n";