ファイルの入出力についての質問です。
sub tsu{
　$i=0;
　open(IN, "data.txt")||die"data.txtをオープンできません：$!\n";
　while($guho=<IN>){
　　$xml1[$i]=$guho;
　　$i+=1;
　}
　close(IN);
以下略

というようなサブルーチンを作ったのですが、Jperlで実行したところ、
data.txtをオープンできません：No such file or directory
とでてくるんですが、文法ミスでしょうか？わかりません。
あ、data.txtはちゃんとこの.plファイルのあるフォルダに存在します。