Just put the parameters behind the call:

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

or, if you want to get the output of the program into your perl script:

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

or

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