system("program.sh $param1 4 $param2");

##</code><code>##

my @result= `program.sh $param1 4 $param2`; #backticks

or

open($f,'-|',"program.sh $param1 4 $param2");
while (my $result= <$f>) {
...