sub get_stripe_count() {

my ( $dbh, $DB ) = @_;
my $stripes = 0;
my $size = 0;
my $stripe_size = 1000;
my $max_stripes = 32;

my $sql = "execute sp_dbsize $DB";

    my $sth = $$dbh->prepare($sql)
       or $app->error($FATAL, "Can't do SQL statement [ $sql ] :: $DBI::errstr");
    $sth->execute()
       or $app->error($FATAL,"Can't execute SQL statement [ $sql ] :: $DBI::errstr");

$size = $sth->fetchrow_array();
$sth->finish();
$$dbh->disconnect();