#!/usr/bin/perl
                                                                                                                                                                                                     
use warnings;
use strict;
use DBI;
                                                                                                                                                                                                     
my ($db,$sql,%shady,$query,$c,$count,$userid);
                                                                                                                                                                                                     
$sql = "select userid, firstname, lastname, password, username, dob, zipcode, age, remotehost, ut, secret_question, secret_answer from users where status='ok' limit 5;";
$db = DBI->connect("DBI:mysql:database=my_user_table;host=db_server","mysqluser","",{RaiseError=>0});
if ( !$db )
{
        print "Cannot contact db_server, bypassing.";
}
$count=0;
$query = $db->prepare($sql);
$query->execute();
while ($c = $query->fetchrow_hashref)
{
        $count++;
        $userid=$c->{"userid"};
        $shady{$userid}->{firstname}=$c->{"firstname"};
        $shady{$userid}->{lastname}=$c->{"lastname"};
        $shady{$userid}->{password}=$c->{"password"};
        $shady{$userid}->{username}=$c->{"username"};
        $shady{$userid}->{dob}=$c->{"dob"};
        $shady{$userid}->{zipcode}=$c->{"zipcode"};
        $shady{$userid}->{age}=$c->{"age"};
        $shady{$userid}->{remotehost}=$c->{'remotehost'};
        $shady{$userid}->{ut}=$c->{"ut"};
        $shady{$userid}->{secret_question}=$c->{"secret_question"};
        $shady{$userid}->{secret_answer}=$c->{"secret_answer"};
}
$db->disconnect();