It's been long time since I've seen anyone running without suEXEC, specially on a shared host.

I think you're doing just fine.

If you want to know where the script is currently stored/running from you can use $ENV{SCRIPT_FILENAME} for Apache or $ENV{PATH_TRANSLATED} for IIS.

If you want to get the http url you can get it like this my $URL = 'http://' . $ENV{HTTP_HOST} . $ENV{SCRIPT_NAME}; for both web servers.

You may want to take a look at the environment variables and test it out to see what works best for you.

#!/usr/bin/perl -w
use strict;
use CGI;

my $q = CGI->new;
print $q->header;
while ( my ($k,$v) = each %ENV ) {
       print "$k = $v <br />\n";
}
[download]