[mod_perl2]perl-скрипты

Где то так:

  use File::Basename;
  $r = Apache2::RequestUtil->request;
  $fullname = $r->filename();
  $dirname  = dirname($fullname);

в итоге в $dirname "текущий" каталог.