Add Perl snippet