サブディレクトリにあるhtml文書を読み込んで表示するプログラムは、下ではダメなのでしょうか。

print "content-type: text/html\n\n";
open(TEST, "sub/test.htm");
while (<TEST>) {
print $_ ;
}
close(TEST);
exit;

ローカルではうまくいくのですが、サーバーに上げて実行してみると上手くいきません。