in reply to mod_perl's cwd not the same as the scripts location.

If you just want to do something in the script's current directory, you could use __FILE__

  use File::Basename qw(dirname);
  my $cwd = dirname(__FILE__);

[download]

In Section Seekers of Perl Wisdom