The below function just takes the data from ABC table and returns one row.  
 
This function exists in db.pl file  
 
sub getqueryresults() 
{ 
    my $followerName = $_[0]; 
    my $sql = "SELECT * ABC WHERE (delay is null or delay < sysdate) AND id = ? ORDER BY qcounter, priority";  
 
    my $sth = $dbh->prepare($sql); 
    $sth->bind_param(1, $followerName); 
    eval 
    { 
        $sth->execute; 
    }; 
     
    if ($@) 
    { 
        $log->error("dbh->errstr()); 
    }  
 
    if ($sth->rows == -1) 
    { 
        $log->error("No  rows."); 
    } 
    my @data= $sth->fetchrow_array(); 
    return @data; 
}

  
 
#!/usr/bin/perl  
 
require 'db.pl';  
 
$signal = 1;  
 
while ($signal)  
 
{  
 
$signal = &processCommand();  
 
}  
 
sub processCommand() 
{ 
   my ($Id, $sId, $rd, $cmd) = getqueryresults("XX");  
 
    print $Id . "sd==>" . $sId . "rd===>"  . $rd ."\n"; 
    return $signal = 1; 
}

use strict; 
use warnings;