A Perl example to populate a WAtable.js table