print "Ourname = $ourname"; 
($ourshortname = $0) =~ s!/!\\!g;
$ourshortname = `dir /b $ourname`;
$ourshortname =~ s/[^\.\w-]//g;
$ourname =~ m!(.*)\\([^\\]*)$!; 
$ourname = "cgi-bin/$ourshortname";

print "ourname is now $ourname<BR>";