<script class="brush: perl;" type="syntaxhighlighter">
use strict;
use warnings;
use Some::Module 0.01 qw( imports );

$Some::Module::Var = [ 'arrayref' ];
my %hash = %Package::Stash::;

our @array = 1 .. 3;
print $#array, $array[0];

local $ENV{FOO} = 'BAR';
call(func => "args");

LABEL: {
  do { something(); }
  undef;
}

sub something (;$) { Print @_ } # upper-case P

print <<HERE
 doc;
HERE

__END__
</script>

Add visual Perl brush test
Add visual Perl brush test
