BEGIN { pipe(READ, WRITE); *STDERR = *WRITE; if(!open(DEBUG, "-|") { # child close WRITE; my @w = ; print @w; exit } } END { close WRITE; print '
Script warnings', '
', , '
' }