#!/usr/bin/perl -w
   2:use DBI;
   3:
   4:$DSN = "DBI:mysql:database=guestdb";
   5:my $dbh = DBI->connect($DSN) || die "Can't connect";
   6:my $qs = $dbh->prepare("Select * from guestTbl");
   7:
   8:$qs->execute();
   9:
  10:while (my $rs=$qs->fetchrow_hashref()){
  11:    print "Name: ",$rs->{'name'}," EMail: ",$rs->{'email'};
  12:    print " msgFrom: ",$rs->{'msgFrom'},"\n";
  13:}
  14:
  15:$qs->finish();
  16:$dbh->disconnect;
  17:
  18:exit;

#! C:/Perl/bin/perl.exe
use DBI;

$DSN = "DBI:mysql:database=league";
my $dbh = DBI->connect($DSN) || die "Can't connect";
my $qs = $dbh->prepare("Select * from admin_login");

$qs->execute();

while (my $rs=$qs->fetchrow_hashref())
{
    print "username: ",$rs->{'username'}," password: ",$rs->{'password'};
    print "\n";
}

$qs->finish();
$dbh->disconnect;

exit;

use DBI;
use CGI qw(:standard); # CPAN cgi module - very handy 
                       # docs at: http://search.cpan.org/dist/CGI.pm/



# replace these with the actual username and passowrd you have set 
# up on mysql.
# more at:  http://dev.mysql.com/doc/refman/5.0/...ing-users.html
my $db='DBI:mysql:league';
my $username = 'username';
my $pass = 'secret';
my $dbh = DBI->connect($db, $username, $pass) || die "Can't connect, $!";
my $qs = $dbh->prepare("Select * from admin_login");
$qs->execute();

# send http headers
print header(),
  start_html(-style=>{'src'=>'/stylesheets/your.css'},
             -title=>"TEST PAGE");

while (my $rs=$qs->fetchrow_hashref())
{
    print p( "username: ",$rs->{'username'}," password: ",$rs->{'password'});
    print "\n";
}

$qs->finish();
$dbh->disconnect;

exit;