my $dbh = DBI->connect("dbi:Sybase:host=$hostname;port=$portno;server=$database_name;",$db_username,$db_password) || warn "Database Connection not made: $DBI::errstr";
print "<h2>**********$dbh**********</h2><br>";
print <<EOF;
<br>
</form>
</body>
</html>
EOF