digraph Perl
{
graph [ rankdir="TB" ]
node [ shape="oval" ]
edge [ color="grey" ]
"node.1" [ color="green" ]
"node.2" [ color="blue" ]
"node.3" [ color="green" ]
"node.4" [ color="blue" ]
"node.5" [ color="green" ]
"node.6" [ color="blue" ]
"node.7" [ color="green" ]
"node.8" [ color="blue" ]
"node.9" [ color="green" ]
"node.10" [ color="blue" ]
"node.11" [ color="green" ]
"node.12" [ color="blue" ]
"node.1" -> "node.2" [ arrowhead="box" color="maroon" dir="forward" label="box" ]
"node.3" -> "node.4" [ arrowhead="crow" color="maroon" dir="forward" label="crow" ]
"node.5" -> "node.6" [ arrowhead="diamond" color="maroon" dir="forward" label="diamond" ]
"node.7" -> "node.8" [ arrowhead="veevee" color="maroon" dir="forward" label="veevee" ]
"node.9" -> "node.10" [ arrowhead="teetee" color="maroon" dir="forward" label="teetee" ]
"node.11" -> "node.12" [ arrowhead="odot" color="maroon" dir="forward" label="odot" ]
}
