[- $script = $ENV{SCRIPT_NAME} -]
[- @fields = split("/",$script) -]
[+ $fields[3] +]<br />
[- $script = $fields[3] -]
[+ $script +]<br />