The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
digraph G {
	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";
}