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" );

$dbh->do( qq{SELECT Tab1, Tab2, Tab3
		FROM UData } );

while (my @row = $dbh->fetchrow_array ) {
my ( $item0, $item1, $item2 ) = @row;

if ($item0 >= $somevalue) { 
print br, "$item0"; }

}

warn( $DBI::errstr ) if ( $DBI::err );
$dbh->disconnect();

print '<h2>All Done</h2>';
print end_html;

##</code><code>##

my @array;

while (my @row = $dbh->fetchrow_array ) {
write ();
}

format STDOUT =
@<<<<<<<<<<@<<<<<<<<<<<<<@<<<<<<<<
$array[0], $array[1], $array[2]
.