#!/usr/bin/perl
use Chemistry::Mok;
$code = '/CS/g{ $n++; $l += $match->bond_map(0)->length }
END { printf "Average C-S bond length: %.3f\n", $l/$n; }';

my $mok = Chemistry::Mok->new($code);
$mok->run({ format => mdlmol }, glob("*.mol"));

##</code><code>##

Illegal division by zero at (eval 15) line 4.
END failed--call queue aborted.