use strict;
use DBI;

my $database='db';
my $username='user';
my $password='pass';

my $dbh=DBI->connect('DBI:mysql:database='.$database,$username,$passwo
+rd);
print 'dbh error' if (!$dbh);
my $sth=$dbh->prepare('SELECT *, 
                              rand() as orderno
                         FROM table_name
                     ORDER BY orderno
                        LIMIT 1');

print 'sth error' if (!$sth);
my $rv=$sth->execute();
print 'rv error' if (!$rv);

my @rand_row = $sth->fetchrow_array();
$sth->finish();

print join(',',@rand_row),"\n";

print "finished\n";
[download]

Hope this helps
UnderMine Hope this helps