Added a Perl example to docs.