make CPAN::Shell->i; print to a filehandle

[Harry Putnam]

How do I go about making the output from 
CPAN::Shell->i; go into a file handle
Instead of STDOUT like it does in this formulation:

$target = "somefile";
if($opt_r){
  open(FH,">$target") or die "Cannot open $target: $!";  
    print FH CPAN::Shell->i;  
  } 
} 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]