use strict;      # Enforce private scoping of variables.  
use lib 'c:/usr/etc/htdocs/karisma/cgi-bin/lib'; # The directory where you keep your modules.  
use Printit;      # Replaces require  
my $p = Printit->new();     # Store a reference to a Printit object (anonymous hash).   
  
my $text = 'Friday';  
$p->printit( text => $text );   # Call printit and pass a named parameter with $text as the value.  

    
  
package Printit;     # package all the following functions and variables into the Printit namespace.  
use strict;   
  
sub new{      # The new method is the class constructor.  
my( $class, %params ) = @_;  
bless { %params }, $class;    # Bless a reference to an anonymous hash into the Printit class. The address that this reference points to is the object of our endeavours.  
}   
  
sub printit{  
my( $class, %params ) = @_;  
print "Today is $params{'text'}\n";  
$class->new( %params );    # Hand a hash which holds the goods off to the new method for blessing. (Actually, you don't need this if you're printing from this method). 
}   
  
1;