Place this script in the same folder as your .pl script and browse it.

#!/usr/bin/perl
# cwd.pl
use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use Cwd;

my $q = new CGI;
print $q->header,
$q->start_html(),
$q->pre(cwd()),
$q->end_html;
[download]

What path is displayed?

poj