Select Code to Download

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

$private->();

<<___;
bla
bla 
bla
___

print "huhu";

...
=cut

print "haha";