Perl block