The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
strict digraph graph_55
{
	graph
	[
		label = "Complex Syntax Test"
	]
	A
	[
		color = "blue"
	]
	node
	[
		shape = "house"
	]
	edge
	[
		color = "purple"
	]
	{
		graph
		[
			rank = "same"
		]
		C
		node
		[
			fillcolor = "goldenrod"
			shape = "circle"
			style = "filled"
		]
		A -> B
		B
		[
			color = "mediumseagreen"
		]
		C
		[
			color = "firebrick1"
		]
		B -> C
		[
			color = "orange"
			penwidth = "5"
		]
		node
		[
			fillcolor = "turquoise4"
		]
		C -> D
		[
			arrowtail = "obox"
			arrowhead = "crow"
			dir = "both"
			minlen = "2"
		]
		D -> E
		[
			arrowtail = "odot"
			arrowhead = "dot"
			dir = "both"
			minlen = "2"
			penwidth = "5"
		]
		{
			node
			[
				fillcolor = "darkorchid"
				shape = "pentagon"
			]
			F
			[
				color = "darkorchid"
				fillcolor = "yellow"
				penwidth = "5"
				shape = "hexagon"
			]
			G
			[
				color = "crimson"
				penwidth = "7"
			]
			F -> G
		}
	}
	B
	[
		shape = "square"
	]
	node
	[
		fillcolor = "lightblue"
		fontsize = "20"
		style = "filled"
	]
	subgraph cluster_outer
	{
		graph
		[
			label = "Outer"
		]
		H -> I
		subgraph cluster_inner
		{
			graph
			[
				label = "Inner"
			]
			node
			[
				fillcolor = "magenta"
				fontsize = "26"
				shape = "triangle"
			]
			edge
			[
				color = "blue"
			]
			J
			[
				color = "yellow"
				shape = "square"
			]
			J -> K
		}
	}
	graph
	[
		rankdir = "TB"
	]
}