Select Code to Download

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

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

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