if ($0=~m#^(.*)\\#) {
	$cgi_dir = "$1";
} elsif ($0=~m#^(.*)/# ) {
	$ cgi_dir = "$1";
} else  {`pwd` =~ /(.*)/;
	$ cgi_dir = "$1";
}