Perl example