#!/usr/bin/perl

$script = $ENV{SCRIPT_NAME};
$script =~ s/(.+)index\.cgi$/$1index.src/;
print "Location: http://www.spatula.net/proc$script\n\n";