How to split a DOT file with multiple graphs into multiple DOT files using GVPR?

Question

How do you split a file with multiple graphs in the DOT language into multiple DOT files using gvpr?

Input (1 file):

# single.dot
digraph one {
  a -> b;
}
digraph two {
  c -> d;
}

Output (1 graph per file):

# one.dot
digraph one {
  a -> b;
}

# two.dot
digraph two {
  c -> d;
}

Answer 1

BEG_G {
  fname = sprintf("%s.dot",$G.name);
  writeG($G, fname);
}