It doesn't look like you can without hacking Perl. Try
close STDOUT; # comment out to see the difference, try opening STD
+OUT to something else
use Perl;
my $p = Perl->new( ARGV => [ '-le', 'print(1)for(1..22)'] );
$p->run;
Looks like you'll have to settle for an intermediary file (
open STDOUT, '>', ...).
| MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" |
| I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). |
| ** The third rule of perl club is a statement of fact: pod is sexy. |
