Perl example code