print "blah\n";
length ...;
push @a, ...;
my $obj = Package->new;

##</code><code>##

my @files = File::Find::Rule->file()
                            ->name(...)
                            ->in(...);

##</code><code>##

 $(this).children('ul').stop(true, false, true).slideToggle(300);