'digraph Perl {
 graph [ label="Named and unnamed subgraphs" rankdir="TB" ]
 edge [ color="grey" ]

 subgraph {
  graph [ label="Subgraph One" ]
  node [ color="magenta" shape="diamond" ]
  "Chadstone" [ shape="hexagon" ]
  "Waverley" [ color="orange" ]
  "Chadstone" -> "Waverley"
 }

 subgraph {
  "Glen Waverley" [ color="blue3" shape="pentagon" ]
  "Mount Waverley" [ color="darkslategrey" shape="rectangle" ]
  "Glen Waverley" -> "Mount Waverley"
 }
}
'
