The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
digraph G
{
	graph
	[
		rankdir = "LR"
	]
	node
	[
		shape = "record"
	]
	a
	[
		label = "<bala> Graphs can\lbe fun\l|<f1> mid|<f2> right\r"
	]
	b
	[
		label = "<left>   |<mid> b |   "
	]
	c
	[
		label = "<p1>   | c |<p2>   "
	]
	x
	[
		label = "<p1>   | x |<p2>   "
	]
	y
	[
		label = "<p1>   | y |<p2>   "
	]
	z
	[
		label = "   | z |<p2>   "
	]
	a:bala -> b:left
	a:f1 -> d
	a:f2 -> y:p1
	c:p1 -> d
	b:mid -> x:p1
	c:p2 -> y:p2
	b:left -> z:p2
}