package loadusertable;
use Queries;
use strict;
use vars qw( @ISA );
@ISA=qw(Queries);

sub new {
    my $proto=shift;
    my $class=ref($proto) || $proto;
    my $self={};

    bless $self,$class;

    $self->init;  # we get that from the base class
    $self->{sql}="select * from users where id=?";

    return $self;

}