Change the my to our, then call it.

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->();
[download]