我想问个system调用的问题

我想问个system调用的问题
求教大侠一个perl的问题。

最近在学perl，遇到一个问题是关于system 函数的。

在linux下我要用perl 脚本来写一个程序，程序中调用了一个C语言编译好的程序（uum），我想通过perl中的变量给这个C
程序赋值，比如说给它一个文件名让它来操作，然后输出到另一个文件中。
程序中的“ooopp"是一个文件名，里面存了两个数。我想把数写到文件oooppp中。
下面是我的程序：
perl部分：
#!/usr/bin/perl

$file1="oooppp";
$file="ooopp";
system" /home/lsp/uum  <<-$file >$file1";

C语言部分(uum.c)：

#include<stdio.h>
#include<math.h>
#include<stdlib.h>
main()
{double a[2];
int i;
char infile[100];
scanf("%s",infile);
FILE *fp;
fp=fopen(infile,"r");
for(i=0;i<=1;i++)
fscanf(fp, "%lf",&a[i]);
printf(" %lf  %lf\n ",a[0],a[1]);

}

其实我是想将perl中的$file的变量赋值给C中的字符数组infile，不过这样写运行时出错了错误如下：
sh: line 1: 12879 Segmentation fault   /home/lsp/uum <ooopp >oooppp

求大侠帮解决

你可以直接测试下命令行下.
你可以直接测试下命令行下执行
/home/lsp/uum <ooopp >oooppp
是否正确来定位问题出现的原因，
然后在具体分析错误原因