my $self_url = 'http://' . $ENV{SERVER_NAME} . $ENV{SCRIPT_NAME};