ext/IPC-Cmd/t/src/output.pl


1
2
3
4
5
6
7
8
9
10
11
12
13

use strict;
use warnings;
use IO::Handle;

STDOUT->autoflush(1);
STDERR->autoflush(1);

my $max = shift || 4;
for ( 1..$max ) {
    $_ % 2 
        ? print STDOUT $_
        : print STDERR $_;
}