if (m/\<!-- Begin Perl Block --\>/i)
	{
	my $perlcode = '';
	# Pull in all the perl code
	while (<PAGE>)
		{
		# This is the end of the block
		last if m/\<!-- End Perl Block --\>/i;
		$perlcode .= $_;
		}
	# Execute the anonymous sub
	$_ = &{eval $perlcode;};
	}