$! This script redirects anything in the path to a special place:
$!   http://www.tammies.com/register/mollys ->
$!     http://www.tammies.com/tammies/capsules/mollys.htmlx
$!
$ write net_link "<DNETRECMODE>"
$ mcr 'f$parse("SET_DCL_ENV.EXE;",f$environment("PROCEDURE")) "WWW_"
$ ON ERROR THEN EXIT
$ put = "write net_link"
$ crlf = f$fao("!/")
$ if www_request_method .eqs. "HEAD" then exit
$!
$! WWW_SCRIPT_NAME = "htbin/register"
$! WWW_SCRIPT_PATH = "/htbin/"
$! WWW_PATH_INFO = "/mollys"
$! WWW_SERVER_NAME = "www.Opus1.COM"
$!
$ bandname = www_path_info
$ newurl = "http://www.tammies.com/tammies/capsules" + bandname + ".htmlx"
$ put "Location: ",newurl
$ put ""
$ exit