print "Content-type: text/html\n\n";
use CGI;
use File::Copy;
use CGI qw(:standard);
use DBI;
$dbname = '%%%%%';
$user = '%%%%%%';
$passwd = '%%%%%';
$dbh = DBI->connect($dbname, $user, $passwd, 'Oracle');
my $sth1=$dbh->prepare('SELECT * FROM school');
$sth1->execute() or die "USERNAME DOES NOT EXIST " . $sth->errstr;
$sth1->bind_columns(\$schoolname);
print<<HTML;
<html>
<head>
<title>New Page 1</title>
</head>
<body>
<form method='POST'>
<p>
<select size='1' name='D1'>
while($sth1->fetch())
{
print ("<option>$schoolname</option>");
}
</select></p>
</form>
</body>
</html>
HTML
