perl CGI无法执行open函数

perl CGI无法执行open函数
#!/usr/bin/perl -w
use CGI qw(:all);
print header;
open( ABC , "> /data/tmpdir/ttt");
print ABC "First line\n";
close(ABC);
open (DEF,"< ttt");
while(<DEF>){
print $_,"\n";
}
这个很简单的代码，我直接在浏览器输入执行这个CGI脚本，但在/data/tmpdir下却无法生成ttt这个文件。请问为什么呢？我把/data/tmpdir文件夹已经赋了777权限了。在线等了，弄了两天都没弄出来。