3rdparty Perl Scripts and cpanel variables

[powerhouse]

I am trying to build a perl script which will check the users domain, however, the cpanel print="domain"> tag does not seem to work in there...

How can I get the domain name of the user, in a 3rd Party perl script?

Thanks,
Richard

 

[powerhouse]

One more thing....

Can I not use CGI to redirect from 3rdparty?

I put in the script, thus far, if the domain is this, then do this:

print redirect(-uri=>$_oldway);

if it is a different domain then

print redirect(-uri=>$_newway);

But when I run the script with a static domain called, since I cannot yet figure out how to get the domain name, I get this:

Status: 302 Moved Location: http://blahblahblah

I changed the domain name, but that is what happens. Do I have to use a metatag to do a redirect??

Thanks!
Richard