#!/usr/local/bin/perl
# Jaime Prilusky, 2006
# special $| variable controls output buffering
# compare with flush02.txt

# $|++;

  print "Going to sleep for a while ... ";
  foreach $sec (1 .. 5) {
    print "$sec ";
    sleep 1;
  }
  print "\n awake again.\n\n";