Shouldn't copy do that ?

From the docs:

               $C = $G->copy;

       Returns a new graph $C corresponding to the graph $G.
[download]

---- amphiplex