************ my script *************
#! /per/bin/perl -w
use strict;

my($program) = 'd:\ema\extension\win32\surveyimport
d:\ema\extension\win32\Yahoo.cfg';
my(@res);
open(RES, "$program |") || die "Unable to run
$program: $!\n";

foreach (<RES>) {
  push @res, $_;
  #print "$_";
}
print $?;
print @res;

close(RES);
exit(0);
***************************************