Select Code to Download

#!/usr/bin/perl
BEGIN
...
</body>
</html>
EOF

[root@station34 cgi-bin]# ./dbdsybase.cgi 
Content-Type: text/html; charset=ISO-8859-1
...
Perhaps a required shared library or dll isn't installed where expecte
+d
 at ./dbdsybase.cgi line 29
Syabse:/usr/local/freetds<br>LD_LIBRARY_PATH:/usr/local/freetds/lib<br
+><h2>**********-----><-----**********</h2>[root@station34 cgi-bin]#

[root@station34 cgi-bin]# ./dbdsybase.cgi 
Content-Type: text/html; charset=ISO-8859-1
...
</form>
</body>
</html>

Syabse:/usr/local/freetds
LD_LIBRARY_PATH:/usr/local/freetds/lib
**********-----><-----**********

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