my $loc = $self->{cgi}->url( -absolute => 1 );
no warnings 'uninitialized';
$self->{path} =~ s/^($loc)?\///;
my $loc = $self->{cgi}->url( -absolute => 1 );
no warnings 'uninitialized';
$self->{path} =~ s/^($loc)?\///;
print $r->{cgi}->header(
-type => $r->{content_type},
-charset => $r->{document_encoding},
print $r->{cgi}->header(
-type => $r->{content_type},
-charset => $r->{document_encoding},