lib/IPC/Cmd/t/src/output.pl

   1 use strict;
   2 use warnings;
   3 use IO::Handle;
   4
   5 STDOUT->autoflush(1);
   6 STDERR->autoflush(1);
   7
   8 my $max = shift || 4;
   9 for ( 1..$max ) {
  10     $_ % 2
  11         ? print STDOUT $_
  12         : print STDERR $_;
  13 }