package dbsize;

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

    return $self;
}

sub getseq
{
    return 25;
}
1;

##</code><code>##

#!/usr/bin/perl -w

use dbsize;

$dbs = new dbsize();
print $dbs->getseq();
print "\n";

root@plugpc-002:/usr/local/bin# ./dbtest.pl
25