package Crypt::Password;

our @EXPORT_OK = (public_func);
sub private_func ()

sub public_func (

   my $p;
      $p->{secret_var1} = 0;
      $p->{secret_hash) = ();
   private_func($p);
# could be bless ($p,"Crypt::Password") and then
#          $p->private_func();
)