Запустить perl-скрипт из perl-скрипта

use strict;
 
our $iparam = 100;
our $oparam;
 
do "eee.pl";
 
print $oparam;

use strict;
 
our $iparam;
 
print "Input was $iparam\n";
 
our $oparam = $iparam * 10;
 
1;

#!/usr/bin/perl -w
 
use POSIX;
use Math::Trig qw( deg2rad);
use strict;
 
#считываем(не обязательные) параметры из командной строки
($maxN, $faultN,$faultangle,$m)=@ARGV;
our $maxN=100                           if 
 
(!defined $maxN);
our $faultN=5                           if 
 
(!defined $faultN);
our $faultangle=45                          if 
 
(!defined $faultangle);
$m=10                               if 
 
(!defined $m);
# заводим массив для выходный данных генерации
our @gen;
#в цикле запускаем скрипты и сохраняем результаты
$j=0;
foreach $j (0..$m-1)
do "gen-rnd-fault.pl";
print @gen;
 
   };

#!/usr/bin/perl -w
use Math::Trig qw( deg2rad);
use strict;
 
#use Math::Random::MT  qw(srand rand);
 
#use Math::Random::Secure  qw(srand rand);
use Geo::Ellipsoid;
...
# забираем параметры
our $maxN;
our $faultN;
our $faultangle;
our @gen;
print "Input was $maxN\n";
print "Input was $faultN\n";
print "Input was $faultangle\n";
....
sub write_eql2($$)
...
 
our @gen=@p;

our($maxN, $faultN,$faultangle,$m)=@ARGV;

# заводим массив для выходный данных генерации