#!/usr/bin/perl -w use strict; use DBI; use CGI qw(:standard); my ($dbh, $sth, $count); $dbh = DBI->connect('dbi:mysql:members','root','password') or die "Connection Error: $DBI::errstr\n"; $sth = $dbh->prepare("SELECT LastName, FirstName, City, State, Country, Email FROM people"); $sth->execute (); print header(), start_html; print <<"(END Page Header HTML)"; Page Header
Some Text
(END Page Header HTML) #### Now I want to indent 5 spaces or app 20 pix print "

Your Search Results"; $count = 0; while (my @val = $sth->fetchrow_array ()) { print p (sprintf ("

Last Name = %s
First Name = %s

City = %s
State = %s
Country = %s
Email = %s\n", $val[0], $val[1], $val[2], $val[3], $val[4], $val[5])); ++$count; } print p ("

$count Total Members"),end_html (); ##### Now I want to stop the indent! print <<"(END FOOTER HTML)"; FOOTER

 


© My Company
All Rights Reserved
(END FOOTER HTML) $sth->finish (); $dbh->disconnect (); exit (0);