sub new {
   my $class = shift;
   my $obj   = {};

# possible other initialization here
# testing for args, making sure defaults are sane etc..
   bless($obj, $class);

# possible havy duty init stuff here
# init new objects inside this one, make expensive
# connections now, if its Ok to do that.
   $obj;

} # END sub new

##</code><code>##

use L2kashe;

my $l2 = L2kashe->new();