Select Code to Download

package Queries;
use DBI;
...
    return $self->{sth}->fetchrow_hashref;

}

package loadusertable;
use Queries;
...

}

use Queries;
use strict;
...

my $row=$q->fetchrow_hashref;

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Peter L. Berghold --- Peter@Berghold.Net
"Those who fail to learn from history are condemned to repeat it."