use IPC::Open2
$progName = "idl";
open(READIDL, WRITEIDL, $progName)

print WRITEIDL <<"ENDIDL"
arr1 ='@array1'
arr2 ='@arrat2'
program, arr1, arr2, data
print, data
ENDIDL
$data = <READIDL>
chomp($data)