$path = $ENV{'SCRIPT_FILENAME'}; $path =~ s/\/script\.cgi$//;