Select Code to Download

package lazydbvalue;

...
my $numUsers = getNumUsers($dbh);

print "Number of users: $numUsers\n";

sub FETCH {
    my $self = shift;
...
    $self->{sth}->finish();
    return $row->[0];
}