123456789101112131415 #!/usr/bin/perluse strict;use warnings;for my $m ( 0 .. 5 ) { print "<<$m>>\n"; for ( 0 .. 10 ) { print {*STDERR} "w$_"; } print {*STDERR} "\n"; for ( 0 .. 10 ) { print {*STDOUT} "p$_"; } print {*STDOUT} "\n";}
#!/usr/bin/perl
use
strict;
warnings;
for
my
$m
( 0 .. 5 ) {
print
"<<$m>>\n"
;
( 0 .. 10 ) {
{
*STDERR
}
"w$_"
"\n"
*STDOUT
"p$_"