Perl sample code for Capy