when i define 2 molecules like:

    use Chemistry::Mol;

    $mol = Chemistry::Mol->new(id => "mol_id", name => "my molecule");
    $c = $mol->new_atom(symbol => "C", coords => [0,0,0]); 
    $o = $mol->new_atom(symbol => "O", coords => [0,0,1.23]); 
    $mol->new_bond(atoms => [$c, $o], order => 3);
[download]

How can i combine them into one molecula ? like : $z = $c + $o; ?

    print $mol->print;
[download]

20040501 Edit by Corion: Moved it to SoPW and added formatting