#!/tool/bin/perl -w
use strict;

my $i = 0;
my @array;


for ($i = 0; $i < 100; $i++)
{
    printf("element $i of array = ");
    printf("%s\n", $array[$i]);
}

##</code><code>##

> ./stderr_test.pl
Use of uninitialized value in printf at ./stderr_test.pl line 11.
element 0 of array =
Use of uninitialized value in printf at ./stderr_test.pl line 11.
element 1 of array =
Use of uninitialized value in printf at ./stderr_test.pl line 11.
element 2 of array =
Use of uninitialized value in printf at ./stderr_test.pl line 11.
element 3 of array =
Use of uninitialized value in printf at ./stderr_test.pl line 11.
element 4 of array =
...

##</code><code>##

> ./stderr_test.pl > & log

##</code><code>##

Use of uninitialized value in printf at ./stderr_test.pl line 13.
Use of uninitialized value in printf at ./stderr_test.pl line 13.
Use of uninitialized value in printf at ./stderr_test.pl line 13.
...
element 0 of array = 
element 1 of array = 
element 2 of array = 
...

##</code><code>##

open(STDERR,'>&', STDOUT);