print "<p>at A called_from = $called_from\n";
print "<p>at A base_url = $base_url\n";
@url_parts = split (/$base_url.*?\// ,$called_from);
print "<p>at B base_url = $base_url\n";
for $i (0 .. $#url_parts) {
	print "<br>url_parts[$i] = $url_parts[$i]\n";
}