my $dsn          = 'NULL';
my $db_user_name = 'NULL';
my $db_password  = 'NULL';

my $dbh = DBI->connect($dsn, $db_user_name, $db_password) || die $dbh->errstr;

##</code><code>##

  $query->execute() || die $dbh->errstr;

    while( $a  = $query->fetchrow_array() )
    {      
        push( @results, $a );
    }
    return @results;

##</code><code>##

my $records = $query->fetchall_arrayref;
return @$records;

##</code><code>##

WHERE ID = \'$_[0]\'