use strict;
use warnings;
INIT{
	package Mypackage;
	use strict;
	use warnings;

	our $privateFunc = sub {
	  print "Private parts - do not touch\n";   
	}

} # End of package
#We are now OUTSIDE.
$Mypackage::privateFunc->();