set my_perl [open "|perl perl_file.pl $variable1 $variable2"]
...