Perl package snippet