#!/usr/bin/perl -w use dbsize; $dbs = new dbsize(); print $dbs->getseq(); print "\n"; root@plugpc-002:/usr/local/bin# ./dbtest.pl 25