Как запустить cgi скрип из другова скрипта и получить его вывод?
 

Точнее, как правильно написать open(); или что-нибудь ещё, чтобы получить вывод программы, но только что им под NT4 работало.

Запускающий скрипт:
#!/usr/bin/perl

print "Content-Type: text/html; charset=windows-1251\n\n";
open(STDOUT, "perl -w ok.cgi |");

Запускаемый скрипт - ok.cgi:
#!/usr/bin/perl
use DBI ; # если уьрать эту строчку, то всё работает, а с ней не работает.

print 'Ok';


Почему use не даёт скрипту нормально работать?

Запускающий скрипт:
#!/usr/bin/perl

print "Content-Type: text/html; charset=windows-1251\n\n";
open(STDOUT, "perl -w ok.cgi |");

Запускаемый скрипт - ok.cgi:
#!/usr/bin/perl
use DBI ; # если уьрать эту строчку, то всё работает, а с ней не работает.

print 'Ok';


Почему use не даёт скрипту нормально работать?

всё заработало.
Вот запускающий скрипт:
#!/usr/bin/perl

print "Content-Type: text/html; charset=windows-1251\n\n";
open(README, "perl ok.cgi |");
while(<README>){
print;}
close(README);