package dbsize; sub new { my $package = shift; my $self = bless ({}, $package); return $self; } sub getseq { return 25; } 1;