adding an example that uses the Perl API