I have try the code as follow

sub {
my ($showlinks,$sth,$link);
my $search_db = $DB->table('CatLinks','Links');
$search_db->select_options ('ORDER BY Links.Add_Date DESC','LIMIT 30');
$sth = $search_db->select ( { Links.isValidated => 'Yes' , Links.ID => CatLinks.LinkID ,CatLinks.CategoryID = '1'});
while ($link = $sth->fetchrow_hashref) {
$showlinks .= Links::SiteHTML::display ('link', $link);
}
return $showlinks;
}

But it's not work

Please Help

TheFox