Add a Perl example.