フルパスを使う必要がある事をやるような人は
自分で調べろという事だよ。

use Cwd;
print "Content-type: text/html\n\n";
print Cwd::getcwd()."\n";

こんなかな