Perl & C code follow:
----------------------------