my $private = sub { print "privat" };

$private->();

##</code><code>##

<<___;
bla
bla 
bla
___

##</code><code>##

print "huhu";

=for doc
bla
bla
bla
=cut

print "haha";