$!/usr/bin/perl -w
package library;
#use block
use strict;
use ...
#global lib variables
my $dbh;
...

sub new
{
 my $self = {};
 shift;
 bless($self);

 return $self;
};

sub method1
{
 ...
};

sub method2
{
 ...
};

...

1;

##</code><code>##

use library;
my $object=new library($kernel); #$kernel is my parent object