$ perl -MGraph -e'my $g=Graph->new();$g->add_cycle(qw/foo bar baz/);$g->add_edge(qw/quux foo/);print $g->toposort()' quuxbarbazfoo$