Help for this page

Select Code to Download

Select or download this

use File::Basename        qw( dirname );
use File::Spec::Functions qw( rel2abs );
...
my $doc_root    = $ENV{DOCUMENT_ROOT};

my $redirect_to = URI->new_abs('bar.cgi', $script_url); # /dir/bar.cgi