Select Code to Download

O1 O3 O5 O11 O73
O2 O72 O54 O12 O7
...
O54 O2
O72 O2
O73 O1

print "strict graph {\n";
while (<DATA>) {
...
    print "    $node -- $_\n" for @neighbours;
}
print "}\n";