#!/usr/bin/perl -w use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use CGI::Pretty; use CGI qw(:standard :cgi-lib -debug fatalsToBrowser); use DBD::mysql; use DBI; my $cgi = new CGI; my ($dbh, $selectstr, $sth, @row, $uid, $psw); my ($numrecs, $numrows, $select_str); my $CoordCookie = cookie(-name=>'MGH_Coord',-value=>0,-path=>'/',-domain=>'.rbhyland.org'); print $cgi->header(-cookie=>$CoordCookie,-Cache_Control=>'no-cache'); print start_html(-title =>'HortLine Database Sign In', -style =>'http://www.HortLine.rbhyland.org/Styles.css', -script=>{-language=>'JAVASCRIPT', -src=>'http://www.HortLine.rbhyland.org/Scripts.js'}); print "