$0=~/^(.+[\\\/])[^\\\/]+[\\\/]*$/;
$cgidir= $1 || "./";