package MyPackage;
use warnings;
use strict;
use Exporter 'import';

our @EXPORT_OK = qw/ myFunc /;

our $VERSION = "1.00";

=head1 myFunc()

This function is just a test.

=cut

my $PRIVATE = 444;

sub myFunc
{
  $PRIVATE++;
  print "\nPackage MyPackage::myFunc(@_)\nPRIVATE = $PRIVATE\n";
}

1;

##</code><code>##

use warnings;
use strict;
use MyPackage qw/myFunc/;

myFunc();