use warnings;
use DBI;
use DBD::mysql;
use CGI qw( :standard );
use CGI::Carp "fatalsToBrowser";
print header, start_html('SQL Must Work!');

my $dbh = DBI->connect("DBI:mysql:data:server","uname","pass") or
  die( "Could not make connection to database: $DBI::errstr" );

my $sth = $dbh->prepare( qq{SELECT Tab1, Tab2, Tab3
       FROM UData } ) or die $dbh->errstr;
my $rc = $sth->execute or die $sth->errstr;
if ($rc > 0) {
  while (my @row = $dbh->fetchrow_array ) {
    my ( $item0, $item1, $item2 ) = @row;
    if ($item0 >= $somevalue) {
      print br, "$item0";
    }
  }
} else {
  # check if there were no results or an error
}
$sth->finish;
$dbh->disconnect;
print '<h2>All Done</h2>';
print end_html;