package MyPackage;

$VERSION = "1.00";

my $PRIVATE = 444;

#
# DESCRIPTION: This function is just a test.
# USAGE: myFunc()
#
sub myFunc
{
  $PRIVATE++;
  print "\nPackage MyPackage::myFunc(@_)\nPRIVATE = $PRIVATE\n";
}

1;