1 #Volunteer.pl - Sign up sheet for Volunteers
      2
      3 use strict;
      4 use DBI;
      5 use CGI qw(:standard);
      6
      7 my ($dbh, $sth, $query);      
      8 my @player = ();
      9
     10
     11 $dbh = DBI->connect ("DBI:mysql:host=localhost;database=<database>",
     12 "mnlight","<paswword>",
     13 {PrintError=> 0, RaiseError=> 1});
     14
     15 $sth = $dbh->prepare ("select Player from Roster order by Player");
     16 $sth->execute ();
     17
     18 while (my @row = $sth->fetchrow_array ())
     19 {
     20 push @player, $row[0];
     21
     22 print $query->header();
     23 print $query->start_html(-title => 'Password');