#!/usr/bin/perl
use DBI;
$dbh = DBI->connect( #your database info here# );
$sth = $dbh->prepare( "SELECT * FROM table_name LIMIT x" );   # prepares a query to send to DB where 'x' is the number of rows you want returned
$sth->execute();   # execute the query against the db

while ( ($col1, $col2) = $sth->fetchrow_array() ) {
     # code
     # code
     # code....etc.
}
$sth->finish();
$dbh->disconnect();