#!/usr/bin/perl

    use strict;
    use lib '/full/path/to/admin';
    use Links qw/$IN $DB $CFG $USER/;
    use GT: QL;
    use Links:Plugins;
    use CGI::Carp qw(fatalsToBrowser);
    
    local $SIG{__DIE__}  = \&Links::fatal;

    Links::init('/full/path/to/admin');

    my $db = $DB->table('Links'); 
    my $total = $db->count ( 'isValidated' => 'Yes'); 
    my $rand = int( rand($total) );
    $db->select_option('LIMIT 1', "ORDER BY RAND( $rand )");
    
    my $link = $db->select();
    
    print Links::SiteHTML::display( 'link', $link );