Perl sample code