add Perl example