'digraph Perl {
 graph [ label="sub.sub.graph.pl" rankdir="TB" ]
 node [ shape="oval" ]
 edge [ color="grey" ]
 "Carnegie" [ shape="circle" ]
 "Murrumbeena" [ color="green" shape="doublecircle" ]
 "Oakleigh" [ color="blue" ]
 "Murrumbeena" -> "Carnegie" [ arrowsize="2" ]
 "Murrumbeena" -> "Oakleigh" [ color="brown" ]

 subgraph "cluster_subgraph_1" {
  graph [ label="Child" ]
  node [ color="magenta" shape="diamond" ]
  "Chadstone" [ shape="hexagon" ]
  "Waverley" [ color="orange" ]
  "Chadstone" -> "Waverley"

  subgraph "cluster_2" {
   graph [ label="Grandchild" ]
   node [ color="blue3" shape="triangle" ]
   "Glen Waverley" [ shape="pentagon" ]
   "Mount Waverley" [ color="darkslategrey" ]
   "Glen Waverley" -> "Mount Waverley"
  }
 }
 node [ color="cyan" shape="oval" ]
 "Malvern"
 "Prahran" [ shape="trapezium" ]
 "Malvern" -> "Prahran"
 "Malvern" -> "Murrumbeena"
}
'
